DateDiff 取时间差
🎯功能
对两个时间做减法计算, 求出差值
📜语法
结果 = DateDiff(单位, 时间1, 时间2[, 一周第一天[, 一年第一周]])
📥参数
| 参数 | 数据类型 | 解释 |
|---|---|---|
单位 | 字符串 | 表示要计算的时间单位, 详见下面表格 |
时间1 | 日期型 | 用于计算的时间日期, 如果非日期型将尝试强制转换日期型 |
时间2 | 日期型 | 用于计算的时间日期, 如果非日期型将尝试强制转换日期型 |
一周第一天 | 数值型 | 可选, 表示一周的第一天是星期几, 默认为星期日, 详见下表 |
一年第一周 | 数值型 | 可选, 表示一年的第一周从哪天算起, 默认为1月1日是第一周, 详见下表 |
参数(
单位)可取值如下:单位值 | 描述 |
|---|---|
yyyy | 年 |
q | 季度 |
m | 月 |
y | 一年的日数 |
d | 日 |
w | 一周的日数 |
ww | 周 |
h | 小时 |
n | 分钟 |
s | 秒 |
参数(
一周第一天)可取值如下:一周第一天的常数 | 值 | 描述 |
|---|---|---|
vbUseSystem | 0 | 使用区域语言支持 (NLS) API 设置。 |
vbSunday | 1 | 星期日（默认） |
vbMonday | 2 | 星期一 |
vbTuesday | 3 | 星期二 |
vbWednesday | 4 | 星期三 |
vbThursday | 5 | 星期四 |
vbFriday | 6 | 星期五 |
vbSaturday | 7 | 星期六 |
参数(
一年第一周)可取值如下:一年第一周的常数 | 值 | 描述 |
|---|---|---|
vbUseSystem | 0 | 使用区域语言支持 (NLS) API 设置。 |
vbFirstJan1 | 1 | 由 1 月 1 日所在的星期开始（默认）。 |
vbFirstFourDays | 2 | 由在新年中至 少有四天的第一周开始。 |
vbFirstFullWeek | 3 | 由在新的一年中第一个完整的周开始。 |
📤返回
长整型数, 返回时间2减去时间1的结果
💡示例
Dim 时差
时差 = DateDiff("d", "2012-10-31", "2012-11-5")
TracePrint 时差 '结果为5, 因为时间2-时间1相差5天
//高级例子
//说明: 利用本地时间做限时运行的判断, 仅供学习使用
//到期时间: 禁止运行的时间
//返回: True表示已到期, 禁止运行; False表示未到期, 正常运行
Function zmCheckDate(到期时间)
Dim 当前时间
当前时间 = Now()
zmCheckDate = DateDiff("s", 当前时间, 到期时间) < 0
End Function
//调用例子
到期时间 = "2021-4-14 22:00:10"
If zmCheckDate(到期时间) Then
MsgBox "脚本已到期, 无法继续运行"
ExitScript
End If
TracePrint "正常执行脚本中...."
📘备注
无