Function ng TimeValue

Kinakalkula ang isang serial time value mula sa tinukoy na oras, minuto, at segundo - mga parameter na ipinasa bilang mga string - na kumakatawan sa oras sa isang solong numeric na halaga. Maaaring gamitin ang halagang ito upang kalkulahin ang pagkakaiba sa pagitan ng mga oras.

Syntax:

TimeValue (Text Bilang String)

Ibinalik na halaga:

Petsa

Mga Parameter:

Teksto: Anumang string expression na naglalaman ng oras na gusto mong kalkulahin sa format na "HH:MM:SS".

Gamitin ang TimeValue function upang i-convert anumang oras sa isang solong halaga, para makalkula mo ang mga pagkakaiba sa oras.

Ibinabalik ng TimeValue function na ito ang uri ng Variant na may VarType 7 (Petsa), at iniimbak ang value na ito sa loob bilang double-precision na numero sa pagitan ng 0 at 0.9999999999.

Taliwas sa DateSerial o DateValue function, kung saan ang mga serial value ng petsa ay nagreresulta sa mga araw na nauugnay sa isang nakapirming petsa, maaari mong kalkulahin ang mga halaga na ibinalik ng TimeValue function, ngunit hindi mo masusuri ang mga ito.

Sa TimeSerial function, maaari mong ipasa ang mga indibidwal na parameter (oras, minuto, segundo) bilang hiwalay na mga numeric na expression. Para sa TimeValue function, gayunpaman, maaari kang magpasa ng string bilang isang parameter na naglalaman ng oras.

Halimbawa:

Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "oras ng pagsisimula"
    b1 = "oras ng pagtatapos"
    c1 = "kabuuang oras"
    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