IBM Lotus Symphony
|
根据作为字符串传送的指定 hour、minute 和 second 参数计算以单一数值表示时间的时间值字符串。此值可以用来计算两个时间之差。
TimeValue (Text As String)
日期
Text:包含要计算的格式为“HH:MM:SS”的时间的任何字符串表达式。
TimeValue 函数可用于将任何时间转换为单一值,以便计算时间之差。
TimeValue 函数返回的数据类型是变量,其 VarType 为 7(即日期),并在内部将此值存储为大于 0 小于 0.9999999999 的双精度数。
在 DateSerial 或 DateValue 函数中,日期值字符串的计算结果为与某个固定日期相差的天数,但对于 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