TimeValue Function

依作為字串傳送的指定 hour、minute 和 second 等參數,計算以單一數值表示的順序時間值。此值可以用來計算兩個時間之間的差。

語法

TimeValue(Text As String)

傳回值類型

日期

參數:

Text:任意字串型表示式,包含要計算的、格式為「HH:MM:SS」的時間。

此函式可用於將任何時間轉換成單一值,以便計算時間差。

TimeValue 函式的傳回類型是變體型,其 VarType 為 7 (即 Date),並在內部將此值儲存為 0 到 0.9999999999 之間的雙精度數。

在 DateSerial 或 DateValue 函式中,順序日期值的計算結果是相對於某個固定日期的,但對於 TimeValue 函式,您可以透過其傳回值來進行計算,但無法演算傳回值本身。

在 TimeSerial 函式中,可以用獨立的數值型表示式來傳送個別參數 (hour、minute、second);而在 TimeValue 函式中,則用包含時間的參數來傳送字串。

錯誤代碼:

5 無效的程序呼叫

13 資料類型不相符

示例:

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