TimeSerial

FreeBASIC

TimeSerial
 
Gets a Date Serial for the specified hours, minutes, and seconds

Syntax

Declare Function TimeSerial ( ByVal hour As Long, ByVal minute As Long, ByVal second As Long ) As Double

Usage

#include "vbcompat.bi"
result = TimeSerial( hours, minutes, seconds )

Parameters

hour
number of hours, in the range 0-23
minute
number of minutes
second
number of seconds

Return Value

Returns a date serial containing the time formed by the values in the hours, minutes and seconds parameters.The date serial returned has no integer part.

Description


hours must be specified in the range 0-23

The compiler will not recognize this function unless vbcompat.bi or datetime.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")


Differences from QB

  • Did not exist in QB. This function appeared in PDS and VBDOS

See also