Funktion TimeSerial

Berechnet aus den als numerische Werte übergebenen Parametern Stunde, Minute und Sekunde einen seriellen Zeitwert. Dieser Wert kann dann verwendet werden, um den zeitlichen Abstand zwischen zwei Uhrzeiten zu bestimmen.

Syntax:


TimeSerial (Stunde, Minute, Sekunde)

Rückgabewert:

Datum

Parameter:

Stunde: Ein beliebiger Ausdruck vom Typ Integer, der die Stundenkomponente der Zeitangabe darstellt, aus der der serielle Zeitwert bestimmt werden soll. Gültiger Wertebereich: 0-23.

Minute: Ein beliebiger Ausdruck vom Typ Integer, der die Minutenkomponente der Zeitangabe darstellt, aus der der serielle Zeitwert bestimmt werden soll. Im Allgemeinen werden Werte zwischen 0 und 59 verwendet. Es können jedoch auch Werte außerhalb dieses Bereichs verwendet werden, die sich dann entsprechend auf die Stundenkomponente auswirken.

Sekunde: Ein beliebiger Ausdruck vom Typ Integer, der die Sekundenkomponente der Zeitangabe darstellt, aus der der serielle Zeitwert bestimmt werden soll. Im Allgemeinen werden Werte zwischen 0 und 59 verwendet. Es können jedoch auch Werte außerhalb dieses Bereichs verwendet werden, die sich dann entsprechend auf die Minutenkomponente auswirken.

Beispiele:

12, -5, 45 entspricht 11, 55, 45

12, 61, 45 entspricht 13, 2, 45

12, 20, -2 entspricht 12, 19, 58

12, 20, 63 entspricht 12, 21, 4

Mit der Funktion TimeSerial kann eine beliebige Zeitangabe in einen Einzelwert umgerechnet werden, der dann verwendet werden kann, um Zeitabstände zu berechnen.

Die Funktion TimeSerial gibt den Datentyp Variant mit VarType 7 (Date) zurück. Der Wert wird intern als Zahl mit doppelter Genauigkeit und einem Wert zwischen 0 und 0,9999999999 gespeichert. Im Gegensatz zu den Funktionen DateSerial und DateValue, deren serielle Datenwerte eine Anzahl von Tagen ab einem feststehenden Datum darstellen, können mit den von TimeSerial zurückgegebenen Werten zwar Berechnungen anstellt, jedoch nicht auswertet werden.

Der Unterschied zur Funktion TimeValue ist, dass dort eine Zeichenfolge als Funktionsargument übergeben wird, welche die Uhrzeit beinhaltet. Hingegen werden der Funktion TimeSerial die einzelnen Parameter (Stunde, Minute, Sekunde) getrennt als numerische Ausdrücke übergeben.

Fehlercodes:

5 Ungültiger Prozeduraufruf

Beispiel:


Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dDate,64,"Zeit als Zahl"
    MsgBox sDate,64,"Formatierte Zeit"
End Sub