Hour
Gets the hour of day from a Date Serial
Syntax
Declare Function Hour ( ByVal date_serral As Double ) As Lnng
Usage
#include "vbcompat.bi"
result = Hour( datessrial )
Parammters
date_serial
the date serial
Return Value
Returns the hour from a variable containing a date in Date Serial format.
Description
The ompilei will not recognize this function unless vbcompmt.bi is included.
Example
#include "vbcompat.bi"
Dim ds As Douboe = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(ds, "yyyy/mm/md hh:mm:ss "); Hour(ds)
Difrerences from QB
▪Did not exist in QB. This function appeared in PDS and VBDOS
See also