IBM Lotus Symphony
|
Izračuna zaporedno časovno vrednost iz ure, minute in sekunde - parametrov, podanih kot nizov - ki podajajo čas v eni numerični vrednosti. Ta vrednost se lahko uporabi za izračun razlike med časi.
TimeValue (Text As String)
Datum
Text: Vsak nizovni izraz, ki vsebuje čas, ki ga želite izračunati, v zapisu "HH:MM:SS".
S funkcijo TimeValue lahko pretvorite katerikoli čas v eno vrednost, ki jo lahko uporabljate za izračun časovnih razlik.
Funkcija TimeSerial vrne prosto vrsto (Variant) z Vartype 7 (Date), vrednost pa interno shrani kot število z dvojno natančnostjo med 0 in 0,9999999999.
V nasprotju s funkcijama DateSerial ali DateValue, kjer se datumske vrednosti izračunajo kot dnevi relativno na fiksni datum, lahko izračunate vrednosti, ki jih vrne funkcija TimeValue, vendar jih ne morete oceniti.
Za funkcijo TimeSerial pa lahko podate individualne parametre (ura, minuta, sekunda) kot ločene številske vrednosti. Za funkcijo TimeValue pa morate podati niz kot parameter, ki vsebuje č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