Lotus Symphony 1.2
|
依作為字串傳送的指定 hour、minute 和 second 等參數,計算以單一數值表示的順序時間值。此值可以用來計算兩個時間之間的差。
Text:任意字串表示式,包含要計算的、格式為 HH:MM:SS 的時間。
此函數可用於將任何時間轉換成單一值,以便計算時間差。
TimeValue 函數的傳回類型是變數,其 VarType 為 7 (即 Date),並在內部將此值儲存為 0 到 0.9999999999 之間的雙精度數。
在 TimeSerial 函數中,可以用獨立的數值表示式來傳送個別參數 (hour、minute、second);而在 TimeValue 函數中,則用包含時間的參數來傳送字串。
在 TimeSerial 函數中,您可以將個別參數 (hour、minute、second) 作為獨立的數值表示式來傳遞。然而,在 TimeValue 函數中,則可以將字串作為包含時間的參數來傳遞。
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