home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / EOQTR.PRG < prev    next >
Text File  |  1990-10-22  |  441b  |  20 lines
  1. ***********
  2. * EOQTR.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 EOQTR WITH <expD> 
  7. * RETURN: <expD> last day of the calendar quarter in which the
  8. *         parameter date falls
  9. ***********
  10. PARAMETERS par1
  11. DO DTOS WITH par1
  12. CALL Trpass  WITH tr_retc
  13. CALL Trexe   WITH "EOQTR"
  14. DO STOD WITH tr_retc
  15. IF fox
  16.    RETURN (tr_retd)
  17. ENDIF
  18. * eof eoqtr *
  19.  
  20.