IBM Lotus Symphony
|
Vypočíta poradovú hodnotu času zo špecifikovaných parametrov hodiny, minúty a sekundy - odovzdávaných ako reťazce -, ktorá predstavuje čas v jednej numerickej hodnote. Táto hodnota môže byť použitá na výpočet rozdielu medzi časmi.
TimeValue (Text As String)
Dátum
Text: Každý reťazcový výraz obsahujúci hodnotu času, ktorú chcete vypočítať vo formáte "HH:MM:SS".
Funkciu TimeValue môžete použiť na skonvertovanie každého času na jednu hodnotu, aby ste mohli vypočítať rozdiely medzi časmi.
Táto funkcia TimeValue vráti typ Variant s VarType 7 (Dátum) a uloží túto hodnotu interne ako dvojnásobne presné číslo medzi 0 a 0.9999999999.
Na rozdiel od funkcie DateSerial alebo funkcie DateValue, kde poradové hodnoty dátumu majú za následok dni vzhľadom na pevný dátum, ich môžete vypočítať pomocou hodnôt vrátených funkciou TimeValue, nemôžete ich však vyhodnotiť.
V prípade funkcie TimeSerial môžete jednotlivé parametre (hodina, minúta, sekunda) odovzdať ako samostatné numerické výrazy. V prípade funkcie TimeValue však môžete reťazec odovzdať ako parameter obsahujúci čas.
Sub ExampleTimerValue
Dim daDT as Date
Dim a1, b1, c1, a2, b2, c2 as String
a1 = "čas začiatku"
b1 = "čas ukončenia"
c1 = "celkový čas"
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