Hi, Marco. I always ICONV the first day of the next month, then
subtract a day. For example:
ANY.DATE = '02-03-2004'
MO = ANY.DATE[1,2]
YR = ANY,DATE[7,4]
MO += 1
IF MO > 12 THEN
MO = 1
YR += 1
END
EOM.DATE = ICONV(MO:'-01-':YR, 'D') - 1
This lends itself to a subroutine or function as well.
Regards, Cliff
Marco Manyevere wrote:
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/
