镀锌测试仪:VBA函数精选之三十九(TimeSerial 和 TimeValue 函数)

来源:百度文库 编辑:九乡新闻网 时间:2024/05/02 09:08:37

VBA函数精选之三十九(TimeSerial 和 TimeValue 函数)

2010-06-30 09:44:01|  分类: EXCEL VBA专区 |  标签: |字号大中小 订阅

第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 包含无效的日期信息,则会导致错误发生。