TimeSerial 函数

计算作为数值传送的指定 hour、minute 和 minute 参数的顺序时间值。这样,就可以利用得到的数值计算两个时间之间的差。

语法:


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)。

错误代码:

5 无效的过程调用

示例:


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,"已格式化的时间"
End Sub

请支持我们!