【烟花原创】VBA零基础之第181篇VBA函数之日期和时间（七）

17>TimeSerial函数

功能：返回一个Variant (Date)，包含具有具体时、分、秒的时间。

语法：TimeSerial(hour, minute, second)

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 之间。但是，当一个数值表达式表示某时刻之前或其后的时、分钟或秒数时，也可以为每个使用这个数值表达式的参数指定相对时间。以下示例中使用了表达式代替绝对时间数。TmeSerial 函数返回中午之前六小时 (12 - 6) 又十五分钟 (-15) 的时间，即 5:45:00 A.M：TimeSerial(12 - 6, -15, 0)

当任何一个参数的取值超出正常范围时，它会适时进位到下一个较大的时间单位。例如，如果指定了 75（75 分钟），则这个时间被解释成一小时又十五分。如果一个参数值超出 -32，768 到 32，767 的范围，就会导致错误发生。如果三个参数指定的时间会使日期超出可接受的日期范围，则亦会导致错误发生。

示例：

18>TimeValue函数

功能：返回一个包含时间的 Variant (Date)。

语法：TimeValue(time)

time必要参数，通常是一个字符串表达式，表示 0:00:00 (12:00:00 A.M.) 到 23:59:59 (11:59:59 P.M.) 之间的时刻。但是，time 也可以是表示在同一时间范围取值的任何其它表达式。如果 time 包含 Null，则返回 Null。

说明：

可以使用 12 小时制或 24 小时制的时间格式。例如，”2:24PM” 和 '14:24' 均是有效的 time 表达式。

如果 time 参数包含日期信息，TimeValue将不会返回它。但是，若 time 包含无效的日期信息，则会导致错误发生。

示例：