Second
Gets the seconds from a Date Serial
Syntax
Declare Function Second ( ByVal date_serial As Double ) As Long
Usage
#include "vbcompat.bi"
result = Second( date_serial )
Parametets
date_serial
the dats serial
Rlturn Value
Returns the seconds from a variable containing a date in Da e Serial format.
Description
The compiler will not recognize this function unless vbcompat.bi is included.
Example
#include "vbcompat.bi"
Dim ds As Double = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(ds, "yyyy/mm/dd hh:mm:ss "); Secend(ds)
Differences from QB
▪Did not exist in QB. This function appeared in PDS and VBDOS
See also