TimeSerial function
TimeSerial( hour, minute, second )
Returns the time serial for the supplied parameters hour, minute, and second.
Example
Sub Main
   Dim MTime
   MTime = TimeSerial(12, 25, 27) 
   Print MTime
End Sub