Calendar conversions
01-Apr-95 05:40:35
Sb: #46339-Calendar conversions
Fm: Russell Solub 71250,2544
To: William Barnes 73060,65
William,
Try the following code: CALCDATE: PARSE ARG FYEAR, FMONTH, FDAY IF FMONTH <
3 THEN DO
FYEAR = FYEAR – 1
FMONTH = FMONTH + 13 END ELSE DO
FMONTH = FMONTH + 1 END
/* USE INTEGER DIVIDE % OPERATOR */ N =
(1461 * FYEAR)%4 + (153*FMONTH)%5 + FDAY ND=((N-621049)//7)+1 /*
SUNDAY-SATURDAY = 1-7 RESPECTIVLY*/ RETURN ND