home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / INIT_A.ZIP / JUL.CMD < prev    next >
OS/2 REXX Batch file  |  1991-08-12  |  326b  |  11 lines
  1. /* Output information about today */
  2. norm = date(n)
  3. day     = date(w)
  4. elaps  = date(d)
  5. year     = subword(norm,3)
  6. if (year / 4  = year % 4) & (year / 100 \= year % 100) | (year/400 = year % 400) then
  7.    length  =  366
  8. else
  9.    length  = 365
  10. RETURN 'Today is' day', 'norm'. '   elaps'/'length-elaps 'day of'  year'.'
  11.