Funktion TimeValue

Erzeugt aus der Angabe von Stunde, Minute und Sekunde – Parameter, die als Zeichenfolgen übergeben werden – eine fortlaufende Nummer, die in einem einzigen numerischen Wert eine komplette Uhrzeit darstellt. Mit Hilfe dieser fortlaufenden Nummer können Differenzen zwischen Uhrzeiten berechnet werden.

Syntax:


TimeValue (Text As String)

Rückgabewert:

Datum

Parameter:

Text: Eine Zeichenfolge mit der zu berechnenden Zeitangabe im Format "HH:MM:SS".

Mit Hilfe dieser Funktion kann eine beliebige Uhrzeit in einen einzigen Wert umgerechnet werden, mit dem wiederum Zeitdifferenzen berechnet werden können.

Die Funktion TimeValue gibt den Typ Variant mit VarType 7 (Date) zurück und speichert den Wert intern als Zahl mit doppelter Genauigkeit und einem Wert zwischen 0 und 0,9999999999.

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 TimeValue zurückgegebenen Werten zwar Berechnungen angestellt, jedoch nicht ausgewertet werden.

Bei der Funktion TimeSerial können die einzelnen Parameter (Stunde, Minute, Sekunde) als separate numerische Ausdrücke übergeben werden. Bei der Funktion TimeValue wird hingegen als Parameter eine Zeichenfolge mit der Zeit übergeben.

Fehlercodes:

5 Ungültiger Prozeduraufruf

13 Datentyp kann nicht konvertiert werden

Beispiel:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "Arbeitsbeginn"
    b1 = "Arbeitsende"
    c1 = "Arbeitszeit"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub