home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / ISLEAP.PRG < prev    next >
Text File  |  1990-10-22  |  530b  |  24 lines

  1. ***********
  2. * ISLEAP.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO ISLEAP WITH <expD>/<year> 
  7. * RETURN: <expL> true if <date> or <year> are a leap year
  8. ***********
  9. PARAMETERS par1 
  10. IF TYPE("par1") = "N"
  11.    CALL Trpass WITH par1
  12.    CALL Trexe  WITH TYPE("par1")
  13. ELSE
  14.    DO DTOS WITH par1
  15.    CALL Trpass WITH tr_retc
  16.    CALL Trexe  WITH TYPE("tr_retc")
  17. ENDIF
  18. CALL Trexe WITH "ISLEAP"
  19. IF fox
  20.    RETURN (tr_retl)
  21. ENDIF
  22. * eof isleap *
  23.  
  24.