Hi All This may help to build a function for conv code.
PRINT "DATE ":
INPUT DATE
D = ICONV(DATE,"D2")
YY = OCONV(D,'D4 Y')
YEAR.START = ICONV("01 JAN ":YY,"D4") ;* First day of the year
D = D - YEAR.START+1+MOD(YEAR.START,7);* Use the Mod 7 for calendar week
PRINT "WEEK ":INT(D/7)+1
Regards
David Jordan
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
