IBM Lotus Symphony
|
计算作为数值传送的指定 hour、minute 和 second 参数的时间值字符串。这样,就可以利用得到的值计算两个时间之差。
TimeSerial (hour, minute, second)
日期
hour:任何整型表达式,表示用于确定时间值字符串的时间中的小时数。有效值:0-23。
minute:任何整型表达式,表示用于确定时间值字符串的时间中的分钟数。该值通常的取值范围是 0 到 59。但是,当分钟数会影响小时值时,也可以使用此范围以外的值。
second:任何整型表达式,表示用于确定时间值字符串的时间中的秒数。该值通常的取值范围是 0 到 59。但是,当秒数会影响分钟值时,也可以使用此范围以外的值。
示例:
12 时 -5 分 45 秒对应 11 时 55 分 45 秒
12 时 61 分 45 秒对应 13 时 2 分 45 秒
12 时 20 分 -2 秒对应 12 时 19 分 58 秒
12 时 20 分 63 秒对应 12 时 21 分 4 秒
TimeSerial 函数可用于将任何时间转换为单一值,以便计算时间之差。
TimeSerial 函数返回的数据类型是变量,其 VarType 为 7(即日期)。该值在内部存储为大于 0 小于 0.9999999999 的双精度数。在 DateSerial 或 DateValue 函数中,日期值字符串的计算结果为与某个固定日期相差的天数,但对于 TimeSerial 函数,您可以利用其返回的值来进行计算,而不能计算这些值本身。
在 TimeValue 函数中,可以用含有时间的参数来传送字符串。而在 TimeSerial 函数中,将用独立的数字表达式来传送单个参数(hour、minute、second)。
Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
dDate = TimeSerial(8,30,15)
sDate = TimeSerial(8,30,15)
MsgBox dDate,64,"Time as a number"
MsgBox sDate,64,"Formatted time"
End Sub