IBM Lotus Symphony


Funktionen TimeValue [Runtime]

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.

Syntaks:

TimeValue (Tekst As String)

Returværdi:

Dato

Parametre:

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.

Fejlkoder

5 Ugyldigt procedurekald

13 Datatyperne stemmer ikke overens

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker