Re: doing date arithmetic in CL

[pcunnane@xxxxxxxxxxxxxx]

     <rant>
     
     And so yet another Y2K bug is introduced.  I have spent the last few 
     days in a blazing (online) argument with a guy who claimed that Y2K 
     was one big scam, and that programmers could never be so lazy/stupid 
     as to have allowed Y2K bugs to happen.  I wish he was subscribed to 
     this list...
     
     It kinda sets my teeth on edge to hear '...without having to call an 
     RPG program.' - how difficult is it to call a program?  It *is* 
     difficult to do date arithmetic correctly in CL, and if you don't do 
     arithmetic correctly, your results will be wrong.  In my book, there 
     are no marks for an algorithm that works 'most of the time.'
     
     </rant>
     
     ____________
     Paul Cunnane
     The Learning Company


______________________________ Reply Separator _________________________________
Subject: Re: doing date arithmetic in CL
Author:  "Tony Jackson" <tony@jackocsi.karoo.co.uk> at InterNet
Date:    1/8/00 2:32 PM


one way is to divide current year by 4..if a full number is returned..its a leap
year...ie...then add one to array(feb)
BPCS/AS400 Support Technician.
Computing Services to Industry.SSA affiliate. 
http://www.jackocsi.karoo.net/tony.htm
    -----Original Message-----
    From: Naser Vassef <Naser_Vassef@orcom.com>
    To: RPG400-L@midrange.com <RPG400-L@midrange.com> 
    Date: 07 January 2000 23:31
    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
+---