home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
prg
/
bas
/
hanlin3
/
basupd20
/
second.bas
< prev
next >
Wrap
BASIC Source File
|
1992-06-17
|
813b
|
18 lines
' +----------------------------------------------------------------------+
' | |
' | BasUpd Copyright (c) 1992 Thomas G. Hanlin III |
' | |
' | See BASUPD.DOC for info on distribution policy |
' | |
' +----------------------------------------------------------------------+
DEFINT A-Z
FUNCTION Second (SerialNr#)
Seconds& = CLNG((ABS(SerialNr#) - INT(ABS(SerialNr#))) * 86400#)
Hours = Seconds& \ 3600&
Seconds& = Seconds& - Hours * 3600&
Minutes = Seconds& \ 60&
Second = Seconds& - Minutes * 60&
END FUNCTION