home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxdates.zip / rxtdate.cmd < prev   
OS/2 REXX Batch file  |  1994-09-18  |  1KB  |  32 lines
  1. /* rexx test for rxdates.cmd file */
  2.  
  3. today=date('B') /* get todays date in basedate format */
  4. lastweek=today-10 /* 10 days ago */
  5. say  'Today:' rxdates(today 'F') '10 days ago: 'rxdates(lastweek 'U') 'was a 'rxdates(lastweek 'W')
  6.  
  7.  
  8.  newUSA=rxdates((date('B')+30) 'U')
  9.  say '30 days from now is: 'newUSA rxdates(newusa 'F')
  10.  
  11. plus=today+60
  12. say '60 days from now is 'rxdates(plus 'W')',' rxdates(plus 'F') 'day #:'rxdates(plus 'D')
  13.  
  14. plus=today+300
  15. say '300 days from now is 'rxdates(plus 'W')',' rxdates(plus 'F') 'day #:'rxdates(plus 'D')
  16.  
  17. plus=today-400
  18. say '400 days ago was     'rxdates(plus 'W')',' rxdates(plus 'F') 'day #:'rxdates(plus 'D')
  19.  
  20. say 'The Julian date 200 days before' rxdates('03/30/1992 F') 'was julian' rxdates(rxdates('03/30/1992 B')-200 'J') '=' rxdates(rxdates('03/30/1992 B')-200 'U')
  21.  
  22.  
  23. if rxdates('07/07/92 l') then say rxdates('07/07/92 f') 'was a leapyear.'
  24.  
  25. say 'The BaseDate for 'rxdates(July 23 1993 U) 'is' rxdates(july 23 1993 b)', Julian is' rxdates('07/23/1993' J)
  26.  
  27. say '300 days before ' rxdates('09/03/54 F') 'was ' rxdates(rxdates('09/03/54 B')-300 'w') rxdates(rxdates('09/03/54 B')-300 'f')
  28.  
  29. say rxdates('01/01/2101 f') 'will be a' rxdates('01/01/2101 w') 'and 295 days later will be' rxdates(rxdates('01/01/2101 b')+295 'F')
  30.  
  31.  
  32.