DateAdd 函数

返回已添加指定时间间隔的日期。

语法

DateAdd(interval, number, date)

参数：

  • Interval：必需。要添加的间隔的字符串表达式。有关值，请参阅设置部分。
  • Number：必需。要添加的间隔数的数字表达式。数字表达式可以是正数，用于表示将来的日期，也可以是负数，用于表示过去的日期。
  • Date：必需。表示向其添加间隔的日期的变体或文字。

设置：interval 参数可以具有以下值：

表 11-9 Interval 参数值

设置 说明
yyyy 年
q 季度
m 月
d 日
w 工作日
h 小时
n 分钟
s 秒

支持的日期格式：

  • MM/DD/YYYY
  • DD/MM/YYYY
  • YYYY-MM-DD
  • YYYY/MM/DD

支持的时间格式：

hh:mm:ss

注释

您可以使用 DateAdd 函数在某个日期的基础上加上或减去指定的时间间隔。例如，可以使用 DateAdd 计算从今天算起 10 天后的日期，或从现在算起 45 分钟后的时间。要在相应日期的基础上添加一定天数，可以使用日 ("d") 或工作日 ("w")。

输出日期格式基于系统的短日期格式。

以下示例说明了 DateAdd 函数的用法：

示例 1：

Dim MyDate, NewDate 
MyDate = "21/01/2025" 
NewDate = DateAdd("yyyy", 5, MyDate) 
'Output: 21-Jan-30

示例 2：

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("q", 1, MyDate)
'Output: 21-Apr-25

示例 3：

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("m", 2, MyDate)
'Output: 21-Mar-25

示例 4：

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("d", 10, MyDate)
'Output: 31-Jan-25

示例 5：

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("w", 4, MyDate)
'Output: 25-Jan-25

示例 6：

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("h", 5, MyDate)
'Output: 21-Jan-25 7:40:00 PM

示例 7：

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("n", 5, MyDate)
'Output: 21-Jan-25 2:45:00 PM

示例 8：

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("s", 5, MyDate)
'Output: 21-Jan-25 2:40:05 PM