TimeValue-funktion

Beregner en seriel tidsværdi ud fra den/det angivne time, minut, og sekund - parametre overført som strenge - som repræsenterer tiden i en enkelt numerisk værdi. Denne værdi kan bruges til at beregne forskellen mellem tider.

Syntaks:


TimeValue (Text As String)

Returværdi:

Dato

Parametre:

Tekst: Et vilkĂĄrligt strengudtryk, der indeholder tiden som du vil beregne i formatet "TT:MM:SS".

Brug TimeValue-funktionen til at konvertere ethvert tidspunkt til en enkelt værdi, så du kan beregne tidsforskelle.

Funktionen TimeValue returnerer typen Variant med VarType 7 (Date), og gemmer denne værdi internt som et dobbelt-nøjagtigt tal mellem 0 og 0.9999999999.

I modsætning til DateSerial eller DateValue-funktionen, hvor serielle datoværdier resulterer i dage i forhold til en fast dato, kan du regne med værdierne som er returneret af TimeValue-funktionen, men du kan ikke vurdere dem.

I TimeSerial-funktionen kan du overføre individuelle parametre (time, minut, sekund) som separate numeriske udtryk. For TimeValue-funktionen kan du dog overføre en streng som en parameter der indeholder tiden.

Fejlkoder:

5 Ugyldigt Procedurekald

13 Datatypen passer ikke

Eksempel:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    A1 = "Start tid "
    b1 = "Slut tid"
    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øt os venligst!