IBM Lotus Symphony


Funkcja TimeSerial [środowisko wykonawcze]

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.

Składnia

TimeSerial (godzina, minuta, sekunda)

Zwracana wartość

Data

Parametry

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.

Kody błędów

5 Nieprawidłowe wywołanie procedury

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe