Does anyone know how to convert a date to the hundred year date format.
For example, how would i convert 8/11/2004 (B3ForD) to its hundred year date (wA3EndD)
format? I appreciate any suggestions. Thanks in advance.
D NumberDays S 6 0
D StartDate S D DatFmt(*ISO)
D EndDate S D DatFmt(*ISO)
/free
StartDate = %DATE('1900-01-01');
EndDate = %DATE();
NumberDays = %DIFF(EndDate:StartDate:*DAYS);
DSPLY NumberDays;
RETURN;
/end-free
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.