Modul
Indhald
Innhaldsliste 🔎︎

# TimeValue-funksjonen

Reknar ut ein seriell tidsverdi ut frå time, minutt og sekund som er oppgjevne. Desse representerar tida i ein enkelt numerisk verdi. Parametrane vert overførte som strengar. Den returnerte verdien kan brukast til å rekna ut tidsskilnadar.

## Syntaks:

    TimeValue (Tekst As String)

## Returverdi:

Dato

## Parametrar:

Tekst: Eit strenguttrykk som inneheld tidspunktet du vil rekna ut i formatet "HH:MM:SS".

Bruk TimeValue-funksjonen for å omforma eit tidspunkt til ein enkel verdi slik at du kan rekna ut tidsskilnaden.

Denne TimeValue-funksjonen returnerer varianttypen med VarType 7 (Dato), og lagrar denne verdien internt som eit dobbelt presisjonstal mellom 0 og 0,9999999999.

I motsetning til funksjonane DateSerial og DateValue, der serielle datoverdiar gjev resultatet i dagar i høve til ein fast dato, kan du rekna med verdiane som vert returnerte frå TimeValue-funksjonen, men du kan ikkje evaluera dei.

I TimeSerial-funksjonen kan du overføra individuelle parametrar (time, minutt, sekund) som separate numeriske uttrykk. For TimeValue-funksjonen derimot kan du overføra ein streng som ein parameter som indeheld tida.

## Feilkodar

5 Ugyldig prosedyreoppkall

13 Ukjend datatype

## Eksempel:

    Sub ExampleTimerValue

    Dim daDT As Date

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

        a1 = "starttid"

        b1 = "sluttid"

        c1 = "total tid"

        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