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

Thanks Zackary

Chuck

Zackary Mcdonald wrote:

> Correction 1 & 7 are weekends {give me the big DUHH}
>  *===========================================================
> P DayOfWk         B                   Export
>  *===========================================================
> D                 Pi                  Like( IntTyp )
> D  Dat                                Like( DatTyp )  Value
>
> D Day             S                   Like( IntTyp )
>
> C     Dat           SubDur    D'1899-12-30' Day:*D
> C                   Div       7             Day
> C                   MvR                     Day
>
> C                   If        Day      = 0
> C                   Eval      Day      = 7
> C                   EndIf
>
> C                   Return    Day
>
>
> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Chuck Lewis
> Sent: Tuesday, November 24, 1998 11:26 AM
> To: MIDRANGE-L@midrange.com
> 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
> +---

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