home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / TR_INWK.PRG < prev    next >
Encoding:
Text File  |  1990-10-22  |  553 b   |  24 lines
  1. *********
  2. * Function : INWEEKS
  3. * By : Tom Rettig
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *********
  6.  
  7.  
  8. FUNCTION INWEEKS
  9. * Syntax: INWEEKS( <start date>, <end date> )
  10. * Return: <expN> number of weeks between two dates
  11. * Note..: Both parameters are <expD>
  12. *         Result is affected by the current state of SET DECIMALS
  13. *
  14. PARAMETERS tr_start, tr_end
  15. IF tr_start > tr_end
  16.    * Error -- start date is greater than end date
  17.    RETURN -1
  18. ELSE
  19.    RETURN ( tr_end - tr_start + 1 ) / 7
  20. ENDIF
  21. * eofunc inweeks
  22.  
  23.  
  24.