same idea with a few less conversions
cdate="20040203"
yr=cdate[1,4]
mn=cdate[5,2]
if mn<12 then mn+=1 else mn=1 ; yr+=1
edate=oconv(iconv(mn'R%2':'-01-':yr,"D")-1,"D")
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Marco Manyevere
Sent: Thursday, June 02, 2005 01:31 PM
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/
