Need to take month mod 12, when adding... D="20040203" Y=D[1,4] M=D[5,2] M+=1 IF M>12 THEN M=1;Y+=1 NEXT.M=ICONV(M:"/01/":Y,"D4/")-1 PRINT OCONV(NEXT.M,"D4Y"):OCONV(NEXT.M,"DM"):OCONV(NEXT.M,"DD")
> -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of > Marco Manyevere > Sent: Thursday, June 02, 2005 10:31 AM > To: [email protected] > Subject: [U2] Finding last day of month > > > Hi, > > Given a date like 20040203, I want to return the last valid > date for that month and year (20040229 in this case). What is > the shortest code fragment to achieve this? > > At the moment I'm replacing the day with 01, then iconv, add > 35 days to the internal date and then oconv and replace the > day again with 01. I'm then on the first day of the next > month. I then iconv, subtract 1 day and oconv. > > Thanks for any help. > > > --------------------------------- > Yahoo! Messenger NEW - crystal clear PC to PCcalling > worldwide with voicemail > ------- > u2-users mailing list > [email protected] > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
