RE: Calculating working days

[Chris Bipes <chris.bipes@xxxxxxxxxxxxxxx>]

We have a calendar of days with a flag for working or non-working days by
DEPARTMENT.  What a pain in the as*.
We:

EndDate subdur StrDate = Days
Eval Days = Days + 1
Eval TestDate = StrDate

KCal  Klist
      Kfld DateType
      Kfld TestDate

KCalP Klist
      Kfld DateType

KCal  SetLL NonWrkDate 
KCalP Reade NonWrkDate

DoW   TestDate <= EndDate
Eval Days = Days - 1
KCalP Reade NonWrkDate
EndDo

NonWrkDate is a record format that only includes non-working days. Date type
is really the calendar type or usage because we maintain different
non-working days for different departments and functions.  Our biggest
problem is who maintains the various calendars?  It always seems to not get
updated correctly or on time.  GIGO ;-)


Christopher K. Bipes    mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst  mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.        http://www.cross-check.com
6119 State Farm Drive   Phone: 707 586-0551 x 1102
Rohnert Park CA  94928  Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000

-----Original Message-----
From: Buck Calabro [mailto:buck.calabro@aptissoftware.com]
Sent: Thursday, August 24, 2000 7:06 AM
To: rpg400-l@midrange.com
Subject: RE: Calculating working days

>Is there a tool or utility that can be 
>use to calculate a date from a 
>given date with a duration of 'n' 
>business days (Mon-Fri).
>(assume no holidays)

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