RE: doing date arithmetic in CL

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

Leap year is a year divisible by 4 except when divisible by 100 unless it is
divisible by 400.  E.g. 2000 is a leap year, but 1900 is not.  I'm sure you
have a good reason for doing it in CL, but if it were up to me I'd do it in
RPG.  

-----------------------------------------------------------------
   A mind is a terrible thing to use.

Joel Fritz 


-----Original Message-----
From: Naser Vassef [mailto:Naser_Vassef@orcom.com]
Sent: Friday, January 07, 2000 3:09 PM
To: RPG400-L@midrange.com
Subject: RE: doing date arithmetic in CL


I'm coding a CL to ensure the last day of a month is written to &DAY field
by looking at the MONTH value and set to either 31, 30 or 28. How will I
calculate the Leap years? ( Feb 29)
I did condition up to the year 2020, is there a better way in CL without
having to call a RPG program. 
Thanks 
+---
| 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
+---