In diesem Beispiel wird die TimeSerial-Funktion verwendet, um einen Zeitwert für eine Stunden-, Minuten- und Sekundenangabe zurückzugeben.
Dim Zeit1 Zeit1 = TimeSerial(16, 35, 17) ' Zeit1 enthält die Darstellung von ' 16:35:17 als fortlaufende Nummer.