第1.39例 TimeSerial 和TimeValue 函数
一、题目：
要求编写一段代码，运用 TimeSerial 函数来返回已知时分秒的时间，运用 TimeValue 函数来将字符串转换为时间。
二、代码：
Sub 示例_1_039()
Dim sj,sj1
sj = TimeSerial(19, 25, 27)
sj1 = TimeValue("4:35:17 PM")
End Sub
三、代码详解
1、Sub 示例_1_039()：宏程序的开始语句。宏名为示例_1_039。
2、Dim sj,sjs ：声明变量sj,sj1 均为可变型变量。
3、sj = TimeSerial(19, 25, 27) ：已知具体的小时、分、秒，运用 TimeSerial 函数来得到时间的值，返回#下午 07:25:27# 的时间表达式。
4、sj1 = TimeValue("4:35:17 PM")：已知表示时间的字符串，运用 TimeValue 函数来将此字符串转换为时间，返回#下午 04:35:17#。
TimeSerial 函数
返回一个 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 的范围，就会导致错误发生。如果三个参数指定的时间会使日期超出可接受的日期范围，则亦会导致错误发生。
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 包含无效的日期信息，则会导致错误发生。