home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / julian.zip / OJULTEST.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-14  |  652b  |  22 lines
  1. /*#!rexx - ojultest.cmd */
  2. parse arg adate        /* must put in full year- eg 1999 */
  3. jul= .date~new(adate)
  4. say 'Stardate:' jul~juldate 'is' jul~whatDay',' jul~gregDate
  5.  
  6. dst=.date~new(jul~todst)
  7. std=.date~new(jul~Tostd)
  8. say 'In' jul~getYear||', DST starts on:' dst~whatDay||',' dst~gregDate
  9. say 'In' jul~getYear||', EST starts on:' std~whatDay||',' std~gregDate
  10.  
  11. If jul~isDST Then
  12.   say 'On this date, Daylight Savings time is in effect.'
  13. else
  14.   say 'On this date, Standard time is in effect.'
  15.  
  16. If jul~isLeapYear Then
  17.   say jul~getYear 'is a leap year.'
  18. else
  19.   say jul~getYear 'is not a leap year.'
  20. return
  21. ::requires ojuldate.cmd
  22.