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

I found somewhere a RPGLE program that does return the day of week.
It uses 12/31/1899 as the base date, that day was a Sunday.
It then does a SUBDUR from the day you need to find, and then divides by 7.
the remander is the day of week(0=Sunday, 6=Saturday)



Gerald Magnuson
The Knapheide Manufacturing Company
Quincy Illinois
-----Original Message-----
From: Chuck Lewis <CLEWIS@IQUEST.NET>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Tuesday, November 24, 1998 11:08 AM
Subject: Determining "Business Days" (i.e. No Saturday/Sunday)


>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
>+---

+---
| 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
+---