1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Option Explicit
Sub ddt()
Sheet3.Activate
Dim rq As Date
Dim lx As String
Dim ly As String
Dim lz As String
Dim n As Integer
Dim Msg
lx = "m"
ly = "d"
lz = "yyyy"
rq = InputBox("请输入一个日期")
n = InputBox("输入增加月的数目：")
Msg = "新日期:" & DateAdd(lx, n, rq)
Sheet3.Range("a1") = Msg
Msg = "新日期:" & DateAdd(ly, n, rq)
Sheet3.Range("a2") = Msg
Msg = "新日期:" & DateAdd(lz, n, rq)
Sheet3.Range("a3") = Msg
End Sub
3、我们先激活当前工作表，然后对过程所需的变量进行声明，这里主要是对dateadd函数的第一个参数进行讲解，并用实际例子进行对比来加深理解。这里我们使用了统一的n变量来对比第一参数的区别。
4、我设置了3个变量lx、ly、lz、并分别赋值字符串M、D、Y，分别代表的是月，日和年，dateadd还支持秒分时，还有周这样的单位，因为我输入的是日期，所以没有写入代码，如果输入类型为时间，同样可以使用dateadd函数来进行增加。
5、接着我将dateadd函数返回值赋予msg变量，并将变量分别写入工作表的a1、a2、a3单元格中，试运行代码，得到结果。
6、可以看到3个结果分别是增加了2个月，增加了2天还有增加了2年的时间，这与我们使用函数参数的定义是一致。
