Functie TimeValue

Module
Inhoud
Index 🔎︎

# 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