midrange.com code scratchpad
Name:
Michael Schutte
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
08/10/2011 03:46:33 pm
IP:
Logged
Description:
If I take today's date 8/13/2011 and subtract 364 days, I always to Wednesday of last year. And I expect that, however, if you continue to subtract 364 days from the new date, I continue to get a Wednesday date. This fine is too, however, I expected that when doing 08/13/2008 - 364 days, I would get Thursday August 08/16/2007 because of Febraury 29th, 2008 being leap day.

Code:
  1. H DftActGrp(*No) 
  2. H DatFmt(*ISO)   
  3.  
  4. D theDateISO      S               D      
  5. D LastYRDate      S               D      
  6. D iX              S              2  0   
  7.  
  8. /free                             
  9.                                   
  10.     theDateISO = %date(20110810); 
  11.    LastYRDate = theDateISO - %days(364);  
  12.    For iX = 1 To 10;                      
  13.        LastYRDate -= %days(364);          
  14.    EndFor;
  15.   *inlr= *on;                                                                   
  16. /End-Free
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css