TimeValue-functie

Berekent een seriële tijdwaarde uit de gespecificeerde uur, minuut en seconde - parameters meegegeven als tekenreeksen - die de tijd in een enkele numerie waarde voorstellen. Deze waarde kan worden gebruikt om het verschil tussen tijden te berekenen.

Syntaxis:

TimeValue (Tekst As String)

Teruggegeven waarde:

Datum

Parameters:

Tekst: Elke tekenreeks die de te berekenen tijd bevat in het formaat "UU:MM:SS".

Met deze functie kunt u een willekeurige tijd omzetten naar een enkele waarde waarmee u tijdverschillen kunt berekenen.

De functie TimeValue geeft het type Variant terug met VarType 7 (Date); deze waarde wordt intern opgeslagen als een getal met dubbele precisie tussen 0 en 0,9999999999.

In tegenstelling tot de functies DateSerial of DateValue, waarin seriële datumwaarden worden berekend die resulteren in dagen relatief aan een vaste datum, kunt u berekenen met waarden, teruggegeven door de functie TimeValue, maar u kunt ze niet evalueren.

In de functie TimeSerial kunt u de individuele parameters (uur, minuut, seconde) opgeven als gescheiden numerieke expressies. Voor de functie TimeValue kunt u echter een string opgeven als een parameter die de tijd bevat.

Foutcodes:

5 Ongeldige aanroep van procedure

13 Gegevenstypen komen niet overeen

Voorbeeld:

Sub ExampleTimerValue

Dim daDT As Date

Dim a1, b1, c1, a2, b2, c2 As String

    a1 = "start tijd"

    b1 = "eind tijd"

    c1 = "totale tijd"

    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