IBM Lotus Symphony
|
Beregner ud fra de angivne strengparametre for time, minut og sekund en seriel klokkeslætsværdi, som repræsenterer klokkeslættet som en enkelt numerisk værdi. Værdien kan bruges til at beregne forskellen mellem klokkeslæt.
TimeValue (Tekst As String)
Dato
Tekst: Et strengudtryk, der indeholder det klokkeslæt, du vil beregne, i formatet "TT:MM:SS".
Brug funktionen TimeValue til at konvertere et hvilket som helst klokkeslæt til en enkelt værdi, så du kan beregne forskelle mellem klokkeslæt.
Denne TimeValue-funktion returnerer typen Variant med VarType 7 (Date) og gemmer værdien internt som et dobbeltpræcisionstal mellem 0 og 0,9999999999.
I modsætning til funktionen DateSerial eller DateValue, hvor de serielle datoværdier udtrykkes som antallet af dage i forhold til en fast dato, kan du udføre beregninger med de værdier, der returneres af funktionen TimeValue, men du kan ikke evaluere dem.
I funktionen TimeSerial kan du overføre individuelle parametre (time, minut, sekund) som separate numeriske udtryk. Til funktionen TimeValue skal du derimod overføre en strengparameter, der indeholder klokkeslættet.
Sub EksempelTimeValue
Dim daDT as Date
Dim a1, b1, c1, a2, b2, c2 as String
a1 = "startklokkeslæt"
b1 = "slutklokkeslæt"
c1 = "varighed"
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