History  | 
TimeSerial (dates) 
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) 
 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 
 | ||||||||