home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / ISWKEND.PRG < prev    next >
Text File  |  1990-10-22  |  374b  |  16 lines
  1. ***********
  2. * ISWKEND.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 ISWKEND WITH <expD> 
  7. * RETURN: <expL> if date is a Saturday or Sunday.
  8. ***********
  9. PARAMETERS tr_date
  10. tr_retl = (( DOW( tr_date ) = 7 ) .OR. ( DOW( tr_date ) = 1 ))
  11. IF fox
  12.    RETURN (tr_retl)
  13. ENDIF
  14. * eof iswkend *
  15.  
  16.