TimeValue Function
KiszámĂt egy soros idĹ‘Ă©rtĂ©ket a megadott ĂłrábĂłl, percbĹ‘l Ă©s másodpercbĹ‘l - karakterlánckĂ©nt átadott paramĂ©terek -, amelyek az idĹ‘t egy numerikus Ă©rtĂ©kkĂ©nt ábrázolják. Az Ă©rtĂ©k segĂtsĂ©gĂ©vel kiszámĂthatĂł az idĹ‘k közötti kĂĽlönbsĂ©g.
Szintaxis:
TimeValue (Szöveg As String)
Visszatérési érték:
Dátum
Paraméterek:
Szöveg: String (karakterlánc) kifejezĂ©s, amely tartalmazza az "Ă“Ă“:PP:MM" formátumban kiszámĂtani kĂvánt Ă©rtĂ©ket.
Használja a TimeValue fĂĽggvĂ©nyt bármely idĹ‘ normál számĂ©rtĂ©kkĂ© valĂł átalakĂtásához, Ăgy akár idĹ‘kĂĽlönbsĂ©geket is kiszámolhat.
Ez a TimeValue fĂĽggvĂ©ny Variant tĂpust ad vissza (VarType 7 - Date (dátum)), Ă©s az Ă©rtĂ©ket egy 0 Ă©s 0.9999999999 közötti double (dupla pontosságĂş) számkĂ©nt tárolja el.
A DateSerial Ă©s a DateValue fĂĽggvĂ©nnyel ellentĂ©tben, ahol a soros dátumĂ©rtĂ©kek egy rögzĂtett dátumhoz viszonyĂtott napok száma, a TimeValue fĂĽggvĂ©ny által visszaadott Ă©rtĂ©kekkel számĂtásokat is lehet vĂ©gezni, de viszont nem lehet Ĺ‘ket megbecsĂĽlni.
A TimeSerial függvényben egyedi paramétereket adhat át (óra, perc, másodperc) külön numerikus kifejezésekként. A TimeValue függvénynek egy időt tartalmazó karakterláncot adhat át paraméterként.
PĂ©lda:
Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
a1 = "kezdési idő"
b1 = "befejezési idő"
c1 = "teljes idő"
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