TimeSerial

Purpose

Returns a date data type value given the hour, minute, and second as arguments.

If an invalid time has been specified, the system will display an error.

Syntax

TimeSerial (Hour, Minute, Second)

Hour	Any numeric expression that evaluates to the integer values 0 to 23 inclusive.
Minute	Any numeric expression that evaluates to the integer values 0 to 59 inclusive.
Second	Any numeric expression that evaluates to the integer values 0 to 59 inclusive.

Example

Sub Main()

Dim meethour As Integer

Dim meetmin As Integer

Dim meetsec As Integer

Dim mymeeting As Date

meethour = 14: meetmin = 15: meetsec = 0

mymeeting = TimeSerial(meethour, meetmin, meetsec)

Print "I have a meeting at:", mymeeting

End Sub