hundred year format

[Jaytib]

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.

 

[mikrom]

I found here

http://www.code400.com/forum/showthread.php/5142-Iso-date-to-Hundred-year-format

this code:

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

 

[Jaytib]

Thank You, I didn't see that Thanks for all your help as always, and have a great day!!!