<assuming input checked>

YEAR = THISDATE[1,4] ; MONTH = THISDATE[5,2]+0
DAYS = CHANGE('31,28,31,30,31,30,31,31,30,31,30,31',',',@AM)
DAYS<2> += (NOT(MOD(YEAR,4)) AND (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)))
LAST.DATE = DAYS<MONTH>

Should catch everything.

Kieran.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to