Nápověda LibreOffice 24.8
Ze zadané hodnoty hodin, minut a sekund (tyto parametry se zadávají jako řetězce) vypočítá číselnou hodnotu, která představuje časový údaj. Tuto hodnotu lze použít k výpočtu rozdílu mezi dvěma časy.
TimeValue (Text As String)
Datum
Text: Řetězec, který obsahuje čas ve formátu "HH:MM:SS".
Pomocí funkce TimeValue je možné převést jakýkoliv čas na jednu hodnotu, se kterou je možné počítat rozdíly časů.
Funkce TimeValue vrací typ Variant s VarType 7 (Date), který je interně uložen jako hodnota double v rozsahu 0 až 0,9999999999.
Na rozdíl od funkcí DateSerial a DateValue, kde se rozdíl počítá jako počet dní k pevnému datu, je možné s hodnotami vrácenými funkcí TimeValue počítat, ale není je možné převést zpět na čas.
Funkci TimeSerial je možné předávat jednotlivé parametry (hodiny, minuty, sekundy) jako samostatná čísla. Ovšem funkci TimeValue je možné předat řetězec jako parametr obsahující čas.
Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
a1 = "start time"
b1 = "end time"
c1 = "total time"
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