home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR502.DOS / SOURCE / SAMPLE / DAYS.PRG < prev    next >
Encoding:
Text File  |  1993-02-15  |  406 b   |  26 lines
  1. /***
  2. *
  3. *  Days.prg
  4. *
  5. *  Summer '87 DAYS() Compatibility Routine
  6. *
  7. *  Copyright (c) 1993, Computer Associates International Inc.
  8. *  All rights reserved.
  9. *
  10. */
  11.  
  12.  
  13. /***
  14. *
  15. *    DAYS( <nSeconds> )
  16. *
  17. *    Return integer number of days from numeric seconds
  18. *
  19. *    Note: The remainder under 24 hours is returned by the TSTRING() function.
  20. *
  21. */
  22. FUNCTION DAYS(cl_secs)
  23.     RETURN INT( cl_secs / 86400 )
  24.  
  25.  
  26.