home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgramD2.iso
/
Database
/
CLIPR503.W96
/
DAYS.PR_
/
DAYS.PR
Wrap
Text File
|
1995-06-20
|
406b
|
26 lines
/***
*
* Days.prg
*
* Summer '87 DAYS() Compatibility Routine
*
* Copyright (c) 1993, Computer Associates International Inc.
* All rights reserved.
*
*/
/***
*
* DAYS( <nSeconds> )
*
* Return integer number of days from numeric seconds
*
* Note: The remainder under 24 hours is returned by the TSTRING() function.
*
*/
FUNCTION DAYS(cl_secs)
RETURN INT( cl_secs / 86400 )