IBM Lotus Symphony
|
Oblicza wartość czasu od określonej godziny, minuty i sekundy. Parametry są przesyłane jako łańcuchy reprezentujące czas w pojedynczej wartości liczbowej. Ta wartość może być używana do obliczania różnicy czasowej.
TimeValue (Tekst As String)
Data
Tekst: Wyrażenie zawierające czas, których ma być obliczony w formacie "GG:MM:SS".
Funkcja TimeValue służy do przekształcania dowolnej godziny w pojedynczą wartość, dzięki czemu można obliczać różnice w czasie.
Ta funkcja TimeValue zwraca wartość Variant typu VarType 7 (Date) i przechowuje tę wartość jako liczbę o podwójnej precyzji z przedziału od 0 do 0,9999999999.
W przeciwieństwie do funkcji DateSerial lub DateValue, gdzie wartości daty odpowiadają liczbie dni do określonego dnia, można ją obliczyć przy użyciu wartości zwracanej przez funkcję TimeValue, ale nie można ich oszacować.
W funkcji TimeSerial pojedyncze parametry (godzinę, minutę, sekundę) można przesyłać jako oddzielne wyrażenia liczbowe. Jednak w przypadku funkcji TimeValue można przesłać łańcuch jako parametr zawierający godzinę.
Sub Przyklad_TimerValue
Dim daDT as Date
Dim a1, b1, c1, a2, b2, c2 as String
a1 = "godzina rozpoczęcia"
b1 = "godzina zakończenia"
c1 = "łączny czas"
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