IBM Lotus Symphony
|
Beregner en seriel klokkeslætsværdi for de angivne parametre for time, minut og sekund, der overføres som en numerisk værdi. Du kan derefter bruge værdien til at beregne forskellen mellem klokkeslæt.
TimeSerial (time, minut, sekund)
Dato
time: Et heltalsudtryk, der angiver timetallet i det klokkeslæt, den serielle klokkeslætsværdi skal findes for. De gyldige værdier er 0-23.
minut: Et heltalsudtryk, der angiver minuttallet i det klokkeslæt, den serielle klokkeslætsværdi skal findes for. Normalt bruges værdier mellem 0 og 59. Du kan også benytte værdier uden for dette værdiområde, og antallet af minutter vil da påvirke timetallet.
sekund: Et heltalsudtryk, der angiver sekunderne i det klokkeslæt, den serielle klokkeslætsværdi skal findes for. Normalt bruges værdier mellem 0 og 59. Du kan også benytte værdier uden for dette værdiområde, og antallet af sekunder vil da påvirke minuttallet.
Eksempler:
12, -5, 45 svarer til 11, 55, 45
12, 61, 45 svarer til 13, 2, 45
12, 20, -2 svarer til 12, 19, 58
12, 20, 63 svarer til 12, 21, 4
Du kan bruge funktionen TimeSerial til at konvertere et hvilket som helst klokkeslæt til en enkelt værdi, der kan benyttes til at beregne forskelle mellem klokkeslæt.
Funktionen TimeSerial returnerer typen Variant med VarType 7 (Date). Denne værdi lagres internt som et dobbeltpræcisionstal mellem 0 og 0,9999999999. I modsætning til funktionen DateSerial eller DateValue, hvor de serielle datoværdier beregnes som dage i forhold til en fast dato, kan du udføre beregninger med værdier, der returneres af funktionen TimeSerial, men du kan ikke evaluere dem.
I funktionen TimeValue skal du overføre en strengparameter, der indeholder klokkeslættet. Til funktionen TimeSerial skal du derimod overføre de individuelle parametre (time, minut, sekund) som separate numeriske udtryk.
Sub EksempelTimeSerial
Dim dDato As Double, sDato As String
dDato = TimeSerial(8,30,15)
sDato = TimeSerial(8,30,15)
MsgBox dDato,64,"Klokkeslæt som et nummer"
MsgBox sDato,64,"Formateret klokkeslæt"
End Sub