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

Thanks Jon !

I'll try this out !

Chuck

Jon.Paris@halinfo.it wrote:

> I have a DayOfWeek procedure that I use as part of my class.  You can use
> it to avoid weekends, but of course it doesn't understand Christmas,
> Thanksgiving etc.  Code is below.
>
>      H NoMain DatFmt(*USA)
>
>      D/Copy QRPGSRC,DateProto3  <<<  Proto should look like the PI below
>
>       ******** Start of procedure definitions
>
>       * DayOfWeek - Calculates day of week (Monday = 1, Tuesday = 2, etc.)
> for
>       *             any date.
>       *           - Input:  WorkDate (Date field in *USA format)
>       *           - Return: Single digit numeric
>
>      P DayOfWeek       B                   Export
>
>      D                 PI             1S 0
>      D WorkDate                        D   DatFmt(*USA) Const
>
>       *     AnySunday can be set to the date of ANY valid Sunday
>
>      D AnySunday       S               D   INZ(D'04/02/1995')
>      D WorkNum         S              7  0
>      D WorkDay         S              1S 0
>
>      C     WorkDate      SubDur    AnySunday     WorkNum:*D
>      C     WorkNum       Div       7             WorkNum
>      C                   MvR                     WorkDay
>
>      C                   If        WorkDay < 1
>      C                   Return    WorkDay + 7
>      C                   Else
>      C                   Return    WorkDay
>      C                   EndIf
>
>      P DayOfWeek       E
>
> Jon.Paris@halinfo.it
>
> +---
> | 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
+---