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

  1. ***********
  2. * BOW.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 BOW WITH <expD> 
  7. * RETURN: <expD> Monday of the week in which the parameter date falls.
  8. ***********
  9. PARAMETERS tr_date
  10. IF DOW( tr_date ) = 1
  11.    tr_retd = tr_date - 6
  12. ELSE
  13.    tr_retd = tr_date - ( DOW( tr_date ) - 2 )
  14. ENDIF
  15. IF fox
  16.    RETURN (tr_retd)
  17. ENDIF
  18. * eof bow *
  19.  
  20.