VBA中函数Hour(time)取小时的用法及详细介绍-路由通

VBA中的Hour(time)函数是处理时间数据的核心工具之一，其核心功能是从时间表达式中提取小时数值。该函数接受Date、Time、Serial Number或字符串类型的时间参数，返回0-23范围内的整数。其设计逻辑兼容多种时间格式，但需注意参数有效性及负数时间的特殊处理。在实际应用中，Hour函数常与Now()、TimeValue()等函数结合，用于工作时间统计、数据分类、条件判断等场景。虽然语法简洁，但需警惕文本型时间参数的隐式转换问题，以及跨时区计算时的局限性。

V BA中函数Hour(time)取小时的用法及详细介绍

一、基础语法与参数解析

Hour函数的基础调用格式为：Hour(time)，其中time参数可以是：

参数类型	示例	解析规则
Date类型	DateSerial(2023,10,5)	自动取时间组件
Time类型	TimeSerial(14,30,0)	直接提取小时值
数值型	3.1415926	视为日期序列号
字符串型	"15:45:30"	需可识别为时间格式

二、返回值特性与边界处理

函数返回值始终为整数，具体特征如下：

输入场景	返回值	处理机制
常规时间（如"08:30:00"）	8	直接提取小时部分
午夜时间（如"00:00:00"）	0	符合时间规范
24小时制极限值（如"23:59:59"）	23	最大有效小时值
负数时间（如-1.5天）	-36	按序列号折算

三、参数有效性验证机制

函数对参数的有效性检测规则如下：

参数类型	有效条件	失效表现
数值型	在1~2958465范围内	超出则返回错误
字符串型	符合时间格式规范	格式错误触发类型不匹配
日期型	包含有效日期组件	空日期返回0小时
表达式	可计算为有效数值	计算失败则报错

四、特殊时间格式处理能力

针对不同时间表达方式的处理策略：

时间格式	处理方式	典型示例
12小时制AM/PM	自动转换为24小时制	"02:15:30 PM"→14
纯数字时间码	按HH:MM:SS解析	"2330"→0（错误示例）
带毫秒的时间码	忽略毫秒组件	"13:45:30.123"→13
跨天数的时间值	仅提取当日小时	"48:05:00"→0（次日5点）

五、错误处理与异常捕获

常见错误类型及应对方案：

使用CInt预处理或IsNumeric验证设置错误处理机制使用IsDate函数预检重构公式逻辑

错误类型	触发条件	解决方案
类型不匹配错误	字符串无法解析为时间
溢出错误	数值超出日期序列号范围
空值错误	参数为Empty或Null
循环引用错误	参数包含自身单元格引用

六、与其他时间函数的协同应用

Hour函数在组合应用中的典型场景：

与Minute/Second配合：构建完整时间分析体系，如：
Hour(Now()) * 60 + Minute(Now())
与DateAdd结合：实现小时级别的动态调整，如：
DateAdd("h", 5, Now())
与Format联合：自定义时间显示格式，如：
Format(Now(), "yyyy-mm-dd HH:MM")
与TimeValue互备：处理不同数据源的时间转换，如：
If IsDate(Cell.Value) Then Hour(Cell.Value) Else Hour(TimeValue(Cell.Value))

七、实际应用案例解析

典型业务场景的解决方案：

(Hour(Now()) >= 20 Or Hour(Now()) <= 6)Hour(DateAdd("h", -5, Now())) '东八区转UTCIf Hour(CurrentTime) <> Hour(LastTime) Then...

业务需求	实现逻辑	代码示例
工时统计（排除午休）	过滤12-13点的记录	If Hour(Time) <> 12 And Hour(Time) <> 13 Then...
夜间服务标识	判断小时是否在20-6点区间
跨时区时间转换
设备启停监控	记录小时值变化点