IBM Lotus Symphony
|
Oblicza seryjną wartość godzinową dla określonych wartości liczbowych parametrów godziny, minut i sekund. Otrzymana wartość może być następnie używana do obliczania różnicy między godzinami.
TimeSerial (godzina, minuta, sekunda)
Data
godzina: Liczba całkowita oznaczająca godzinę, dla której ma zostać określona seryjna wartość godzinowa. Akceptowane wartości: 0–23.
minuta: Liczba całkowita oznaczająca wartość minut, dla której ma zostać określona seryjna wartość godzinowa. Zwykle należy używać wartości od 0 do 59. Można także używać wartości spoza tego zakresu, jednak liczba minut będzie miała wpływ na wartość godzin.
sekunda: Liczba całkowita oznaczająca wartość sekund, dla której ma zostać określona seryjna wartość godzinowa. Zwykle należy używać wartości od 0 do 59. Można także używać wartości spoza tego zakresu, jednak liczba sekund będzie miała wpływ na wartość minut.
Przykłady
12, -5, 45 odpowiada 11, 55, 45
12, 61, 45 odpowiada 13, 2, 45
12, 20, -2 odpowiada 12, 19, 58
12, 20, 63 odpowiada 12, 21, 4
Za pomocą funkcji TimeSerial można przekształcić dowolną godzinę w pojedynczą wartość, na podstawie której można obliczać różnice czasu.
Funkcja TimeSerial zwraca dane typu VarType 7 (data). Ta wartość jest przechowywana wewnętrznie jako liczba o podwójnej dokładności z zakresu od 0 do 0,9999999999. W przeciwieństwie do funkcji DateSerial lub DateValue, w przypadku których wartości daty są obliczane jako liczba dni od ustalonej daty odniesienia, możliwe jest dokonywanie obliczeń na wartościach zwróconych przez funkcję TimeSerial, ale nie jest możliwa ich interpretacja.
W funkcji TimeValue można podać godzinę jako łańcuch. Natomiast w przypadku funkcji TimeSerial należy podać pojedyncze parametry (godzina, minuta, sekunda) jako oddzielne wyrażenia liczbowe.
Sub Przyklad_TimeSerial
Dim dDate As Double, sDate As String
dDate = TimeSerial(8,30,15)
sDate = TimeSerial(8,30,15)
MsgBox dDate,64,"Godzina jako liczba"
MsgBox sDate,64,"Godzina sformatowana"
End Sub