basic
Example:
Sub Main
Dim MTime
MTime =
TimeSerial
(12, 25, 27)
Print MTime
End Sub