Re: RPGIV: work days in a subdur

From: Angela Wawrzaszek <awawrzaszek@nucorauburn.com>

Yes and no this is what will work.  I will be subtracting dates that can be
1-120 days apart.  So to figure out which day of the week it is and subtract
a weekend is not quite that simple.   I wuld need to be able to know how many
weekends to subtract out of the subdur.


===> it is not quite clear what you want (a weekend is two days and there may
be
half weekends on either end of your duration), but assuming that you want to
count
WORKDAYS (i.e. not weekends), you could do it without any fancy date duration
functions with the following simple loop (assume that Monday is day 1):

d = getday(whenever)'
workdays = 0;
loop dur times
   d = d - 1
   if d < 1
        d = 7
   endif
   if d < 6
       workdays = workdays + 1
   endif
endloop