Re: Determining "Business Days" (i.e. No Saturday/Sunday)

QDAYOFWEEK has been mentioned before but I have not been able to find it.  So 
what I usually do is something like this:

Specify a couple of date fields (*ISO) and intialize one of them to a date.  
December 31, 1899 works pretty good.   Let the other be your target date.  Do a 
       

C    TargetDate SUBDUR   KnownDate:D    TotalDays  
C    TotalDays   DIV        7        

and throw away the result (that's the number of full seven-day weeks).   Use 
the remainder, MVR, to see if it is a Monday through Friday (that's the 
"offset" in days from 12/31/1899).  Test it to find out which is which, but I 
believe you'll find that if the remainder is 1 through 5, then you have a 
Monday through Friday.

 

In <365ADDFE.2102EADE@IQUEST.NET>, on 11/24/98 
   at 11:25 AM, Chuck Lewis <CLEWIS@IQUEST.NET> said:

>Hi Folks,

>Anyone have a method of determining when a day is a business day (i.e.
>Mon-Fri) ?

>I have a method I developed YEARS ago (load a file with all dates and the
>actual day, etc) and it is "Y2K" but I'm wondering with the new RPG IV
>and ILE stuff is there something that handles this ?

>I have EVEN looked through the online books a bit. I've used ADDUR, etc
>but haven't seen anything on this...

>Thanks,

>Chuck

>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
>| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---