home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / MAKEDATE.PRG < prev    next >
Text File  |  1990-10-22  |  636b  |  28 lines
  1. ***********
  2. * MAKEDATE.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 MAKEDATE WITH <date string> [,<months>]
  7. * RETURN: Valid <expD> of <date string>, even if <date string> 
  8. *         is invaild date, plus or minus <months>
  9. ***********
  10. PARAMETERS par1, par2 
  11. CALL Trpass WITH par1
  12. * Optional second parameter
  13. IF TYPE("par2") = "C"
  14.    IF [] = par2
  15.       par2 = 0
  16.       CALL Trpass WITH par2
  17.    ENDIF
  18. ELSE
  19.    CALL Trpass WITH par2
  20. ENDIF
  21. CALL Trexe WITH "MAKEDATE"
  22. DO STOD WITH tr_retc
  23. IF fox
  24.    RETURN (tr_retd)
  25. ENDIF
  26. * eof makedate *
  27.  
  28.