IBM Lotus Symphony
|
Izračuna serijsko časovno vrednost za podane parametre ure, minute in sekunde, ki se posredujejo kot numerične vrednosti. Te vrednosti lahko potem uporabljate za izračun razlike med časi.
TimeSerial (hour, minute, second)
Datum
Hour: Vsak celoštevilčni izraz, ki kaže uro časa, ki se uporabi za določanje serijske časovne vrednosti. Veljavne vrednosti: 0-23.
Minute: Vsak celoštevilčni izraz, ki kaže minuto časa, ki se uporabi za določanje serijske časovne vrednosti. V splošnem uporabljajte vrednosti med 0 in 59. Vendar pa lahko prav tako uporabljate vrednosti, ki so zunaj tega obsega, kjer število minut vpliva na vrednost ure.
Second: Vsak celoštevilčni izraz, ki kaže sekundo časa, ki se uporabi za določanje serijske časovne vrednosti. V splošnem uporabljajte vrednosti med 0 in 59. Vendar pa lahko prav tako uporabljate vrednosti, ki so zunaj tega obsega, kjer število sekund vpliva na vrednost minut.
Primeri:
12, -5, 45 ustreza 11, 55, 45
12, 61, 45 ustreza 13, 2, 45
12, 20, -2 ustreza 12, 19, 58
12, 20, 63 ustreza 12, 21, 4
S pomočjo funkcije TimeSerial lahko pretvorite katerikoli čas v eno vrednost, ki jo lahko uporabljate za izračun časovnih razlik.
Funkcija TimeSerial vrne prosto vrsto podatka (Variant) z Vartype 7 (Date). Ta vrednost se interno shrani kot število z dvojno natančnostjo med 0 in 0,9999999999. V nasprotju s funkcijama DateSerial ali DateValue, kjer se datumske vrednosti izračunajo kot dnevi relativno na fiksni datum, lahko izračunate vrednosti, ki jih vrne funkcija TimeSerial, vendar jih ne morete ovrednotiti.
V funkciji TimeValue lahko kot parameter, ki vsebuje čas, podate niz. Za funkcijo TimeSerial pa lahko podate individualne parametre (ura, minuta, sekunda) kot ločene številske vrednosti.
Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
dDate = TimeSerial(8,30,15)
sDate = TimeSerial(8,30,15)
MsgBox dDate,64,"Time as a number"
MsgBox sDate,64,"Formatted time"
End Sub