IBM Lotus Symphony


Funkcija TimeValue [izvajalno okolje]

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.

Skladnja:

TimeValue (Text As String)

Vrnjena vrednost:

Datum

Parametri:

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.

Kode napak

5 Neveljavni klic procedure

13 Neujemanje vrst

Primer:

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke