IBM Lotus Symphony
|
Beregner en seriell klokkeslettverdi fra de angitte time-, minutt- og sekund-parameterne - sendt som strenger - som representerer klokkeslettet i en enkelt numerisk verdi. Denne verdien kan brukes til å beregne differansen mellom klokkeslett.
TimeValue (Tekst som Streng)
Dato
Tekst: Et strenguttrykk som inneholder klokkeslettet du vil beregne, i formatet "TT:MM:SS".
Bruk TimeValue-funksjonen til å konvertere et klokkeslett til en enkeltverdi, slik at du kan beregne klokkeslettdifferanser.
Denne TimeValue-funksjonen returner typen Variant med VarType 7 (Dato), og lagrer denne verdien internt som et dobbeltpresisjonsnummer mellom 0 og 0,9999999999.
I TimeSerial-funksjonen kan du imidlertid sende individuelle parametere (time, minutt, sekund) som separate numeriske uttrykk. For TimeValue-funksjonen kan du imidlertid sende en streng som en parameter som inneholder klokkeslettet.
I TimeSerial-funksjonen kan du imidlertid sende individuelle parametere (time, minutt, sekund) som separate numeriske uttrykk. For TimeValue-funksjonen kan du imidlertid sende en streng som en parameter som inneholder klokkeslettet.
Sub ExampleTimerValue
Dim daDT as Date
Dim a1, b1, c1, a2, b2, c2 as String
a1 = "starttid"
b1 = "sluttid"
c1 = "totaltid"
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