如何在VBA中将日期格式转换为仅提取小时以计算时间差

VBA 中 Date 类型的底层存储是双精度浮点数，整数部分代表日期天数，小数部分代表当日的时间占比，无需手动拆分日期格式即可实现需求，以下是两种常见场景的实现方式：

• 场景1：计算包含跨天的总小时差（如1号22点到2号3点，结果为5）
  直接将两个日期的差值乘以24（1天=24小时）后取整即可，代码如下：
  小时差 = Int((t2 - t1) * 24)
  你也可以用内置DateDiff函数实现：
  小时差 = DateDiff("h", t1, t2)

  注意：DateDiff计算的是两个时间点跨越的小时刻度数，如20:59到21:01会返回1，而Int取整的方式会向下舍入不满1小时的部分，返回0，可根据需求选择。

• 场景2：仅提取时间部分计算差值，忽略日期（如不管是几号，23点和1点的差值为2）
  用TimeValue函数提取时间部分后再计算：
  小时差 = Int(Abs(TimeValue(t2) - TimeValue(t1)) * 24)

完整代码示例 #

Sub CalcHourDiff()
    Dim t1 As Date, t2 As Date
    Dim res As Integer
    
    ' 读取A1、B1单元格的时间值
    t1 = Range("A1").Value
    t2 = Range("B1").Value
    
    ' 按需选择对应计算逻辑，此处用场景1的向下取整逻辑
    res = Int((t2 - t1) * 24)
    
    ' 结果写入C1单元格
    Range("C1").Value = res
End Sub

额外说明 #

• 无需处理单元格的dd/mm/yy hh:mm显示格式，只要单元格存储的是合法日期类型，直接取值即可正常计算
• 若需要四舍五入到整数小时，将Int替换为Round函数即可：Round((t2 - t1) * 24, 0)

内容的提问来源于stack exchange，提问作者AHMAD