TimeValue-funksjonen

Reknar ut ein seriell tidsverdi ut frå time, minutt og sekund som er oppgjevne. Desse representerer tida i ein enkelt numerisk verdi. Parameterane 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 inneheld 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

Støtt oss!