VBA DateAdd 日期加减

将日期对象的日期部分加上数值，产生新的日期对象，并返回。

例如：将日期的月份加2。

语法

Function DateAdd(Interval As String, Number As Double, Date)

将日期对象的Interval部分加上数值Number。

注：不修改原有的日期对象，新产生的日期作为返回值进行返回。

示例

Sub sub8()

  Dim d1 As Date
  d1 = Now
  Debug.Print d1

  Debug.Print DateAdd("d", 6, d1) ' 6天后
  Debug.Print DateAdd("m", 6, d1) ' 6个月后
  Debug.Print DateAdd("yyyy", 6, d1) ' 6个月后

  Debug.Print DateAdd("h", 6, d1) ' 6小时后
  Debug.Print DateAdd("n", 6, d1) ' 6分钟后
  Debug.Print DateAdd("s", 6, d1) ' 6秒后

  Debug.Print DateAdd("d", -2, d1) ' 前天

End Sub

输出结果：

2023/6/15 15:24:22
2023/6/21 15:24:22
2023/12/15 15:24:22
2029/6/15 15:24:22
2023/6/15 21:24:22
2023/6/15 15:30:22
2023/6/15 15:24:28
2023/6/13 15:24:22