TimeSerial 函数

返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间。

TimeSerial(hour,minute, second)

参数

hour

其值为从 0 (12:00 A.M.) 到 23 (11:00 P.M.) 的数值或数值表达式。

minute

任意数值表达式。

second

任意数值表达式。

说明

要指定一时刻，如 11:59:59，TimeSerial 的参数取值应在可接受的范围内；也就是说，小时应介于 0-23 之间，分和秒应介于 0-59 之间。但是，可以使用数值表达式为每个参数指定相对时间，这一表达式代表某时刻之前或之后的时、分或秒数。

下面的示例使用绝对时间数的表达式。TimeSerial 函数返回中午前 6（12-6）小时前的 15分钟 （-15）， 或 5:45:00 A.M.

Dim MyTime1MyTime1 = TimeSerial(12 - 6, -15, 0) ‘ 返回 5:45:00 AM.

当任何一个参数的取值超出可接受的范围时，它会正确地进位到下一个较大的时间单位中。例如，如果指定了 75 分钟，则这个时间被解释成一小时十五分钟。但是，如果任何一个参数值超出 -32768 到 32767 的范围，就会导致错误。如果使用三个参数直接指定的时间或通过表达式计算出的时间超出可接受的日期范围，也会导致错误。

VBS教程：函数-TimeSerial 函数

原文：http://www.jb51.net/article/4578.htm