Here's yet another way...
END.OF.MONTH
0001 EDATES =
"31":@FM:"29":@FM:"31":@FM:"30":@FM:"31":@FM:"30":@FM:"31":@FM:"31":@FM:
"30":@FM:"31
":@FM:"30":@FM:"31"
0002 PRINT "INPUT DATE YYYYMMDD - ": ; INPUT ODATE
0003 EYEAR = ODATE[1,4]
0004 EMONTH = ODATE[5,2]
0005 EDAY = EDATES<EMONTH>
0006 EDATE = EYEAR:EMONTH:EDAY
0007 IDATE = ICONV(EDATE,'D')
0008 IF STATUS() THEN
0009 EDATE -= 1
0010 END
0011 PRINT ODATE,EDATE
Leon.
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
