第07章 VBA工具类

右侧导航 教程所有章 VBA 工具类 大纲 第1节 VBA 字符串String 第2节 VBA Len 字符数 第3节 VBA UCase 转化为大写 第4节 VBA LCase 转化为小写 第5节 VBA Left 取左边子字符串 第6节 VBA Right 取右边子字符串 第7节 VBA Mid 取中间子字符串 第8节 VBA InStr 查找位置 第9节 VBA Replace 替换子字符串 第10节 VBA Trim 去掉两边空格 第11节 VBA LTrim 去掉左边空格 第12节 VBA RTrim 去掉右边空格 第13节 VBA Split 分割为数组 第14节 VBA StrReverse 反转 第15节 VBA Asc 字符ASC码值 第16节 VBA Chr 码值的字符 第17节 VBA String 重复字符 第18节 VBA Space 重复空格 第19节 VBA Date 日期 第20节 VBA DateSerial 创建日期 第21节 VBA Date 当前日期 第22节 VBA Now 当前日期与时间 第23节 VBA Time 当前时间 第24节 VBA TimeSerial 创建时间 第25节 VBA Year等 日期部分 第26节 VBA Format 格式化 第27节 VBA DateValue 字符串转日期 第28节 VBA TimeValue 字符串转时间 第29节 VBA DateAdd 日期加减 第30节 VBA DateDiff 时间差值 第31节 VBA 类型转化 第32节 VBA MsgBox消息框 第33节 VBA InputBox 输入框 下一章 第08章 VBA Excel对象
❮上一节  VBA DateAdd 日期加减 下一节  VBA 类型转化❯

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

❮上一节  VBA DateAdd 日期加减 下一节  VBA 类型转化❯