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
|