IBM Lotus Symphony


TimeValue 函数 [运行时]

根据作为字符串传送的指定 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 函数中,将用包含时间的参数来传送字符串。

错误代码

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


产品反馈 | 其他文档 | 商标