DateDiff 计算俩时间之差

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

以指定单位计算两个时间之差。

语法

差值 = DateDiff(时间单位, 时间1, 时间2[, 星期配置[, 周数配置]])

参数

参数 数据类型 解释
时间单位 字符串 要添加的时间单位,详见下方表格
时间1 小数型 任意有效时间小数,第一个时间
时间2 小数型 任意有效时间小数,第二个时间
星期配置 整数型 可选,星期中第一天是星期几,省略默认采用系统配置
周数配置 整数型 可选,一年中第一周位置,省略默认为1月1日所在星期
时间单位字符串 解释
y
q 季度
m
d
w 星期
h 小时
n 分钟
s

返回值

整数型,返回按指定单位计算时间2减去时间1的差值。

示例

1
2
3
4
5
6
7
8
9
Dim TimeA = CDate("2016/01/01 12:00:00")
TracePrint DateDiff("y", TimeA, CDate("2018/01/01 12:00:00"))
TracePrint DateDiff("q", TimeA, CDate("2016/05/01 12:00:00"))
TracePrint DateDiff("m", TimeA, CDate("2016/08/01 12:00:00"))
TracePrint DateDiff("w", TimeA, CDate("2016/02/01 12:00:00"))
TracePrint DateDiff("d", TimeA, CDate("2016/01/08 13:00:00"))
TracePrint DateDiff("h", TimeA, CDate("2016/01/02 12:02:00"))
TracePrint DateDiff("n", TimeA, CDate("2016/01/01 13:00:00"))
TracePrint DateDiff("s", TimeA, CDate("2016/01/01 12:02:00"))

备注