高级编程:返回包含具有具体时、分、秒的时间VBA函数
返回一个 Variant (Date)，包含具有具体时、分、秒的时间。
语法
TimeSerial(hour, minute, second)
TimeSerial 函数语法有下列的命名参数：
部分 描述
hour 必要；Variant (Integer)。其值从 0 (12:00 A.M.) 到 23 (11:00 P.M.)，或一数值表达式。
minute 必要；Variant (Integer)。任何数值表达式。
second 必要；Variant (Integer)。任何数值表达式。
说明
为了指定一个时刻，如 11:59:59，TimeSerial 的参数取值应在正常范围内；也就是说，钟点应介于 0-23 之间，而分钟与秒应介于 0-59 之间。但是，当一个数值表达式表示某时刻之前或其后的时、分钟或秒数时，也可以为每个使用这个数值表达式的参数指定相对时间。以下示例中使用了表达式代替绝对时间数。TimeSerial 函数返回中午之前六小时 (12 - 6) 又十五分钟 (-15) 的时间，即 5:45:00 A.M.
TimeSerial(12 - 6, -15, 0)
当任何一个参数的取值超出正常范围时，它会适时进位到下一个较大的时间单位。例如，如果指定了 75（75 分钟），则这个时间被解释成一小时又十五分。如果一个参数值超出 -32，768 到 32，767 的范围，就会导致错误发生。如果三个参数指定的时间会使日期超出可接受的日期范围，则亦会导致错误发生。
TimeSerial 函数示例
本示例使用 TimeSerial 函数来将已知的时分秒转换为时间。
Dim MyTime
MyTime = TimeSerial(16, 35, 17) ' MyTime 的值为 4:35:17 PM 之时间表达式。