home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / TR_ISWK.PRG < prev    next >
Encoding:
Text File  |  1990-10-22  |  341 b   |  16 lines
  1. *********
  2. * Function : ISWKEND
  3. * By : Tom Rettig
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *********
  6.  
  7.  
  8. FUNCTION ISWKEND
  9. * Syntax: ISWKEND( <expD> )
  10. * Return: True if <expD> occurs on a Saturday or Sunday, otherwise False
  11. *
  12. PARAMETERS tr_date
  13. RETURN DOW(tr_date)=7 .OR. DOW(tr_date)=1
  14. * eofunc eow *
  15.  
  16.