VBA DateDiff 时间差值
两个日期在间隔部分上相差的数值。
例如：两个日期相差的年份、月份、等。
语法
Function DateDiff(Interval As String, Date1, Date2)
两个日期在间隔部分interval上相差的数值。
参数
Interval参数可选值如下。
| Interval可选值 | 说明 |
|---|---|
| yyyy | 年 |
| q | 季度 |
| m | 月 |
| y | 每年的某一日 |
| d | 天 |
| w | 工作日 |
| ww | 周 |
| h | 小时 |
| n | 分钟 |
| s | 秒 |
示例
Sub sub9()
Dim d1, d2 As Date
d1 = DateSerial(2023, 6, 5) '创建日期
d2 = DateSerial(2024, 8, 10)
Debug.Print DateDiff("d", d1, d2) '求相差的天数
Debug.Print DateDiff("m", d1, d2) '求相差的月数
Debug.Print DateDiff("yyyy", d1, d2) '求相差的年数
End Sub
输出结果：
432
14
1