|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.