1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option ExplicitSub ddt()Sheet3.ActivateDim rq As DateDim lx As StringDim ly As StringDim lz As StringDim n As IntegerDim Msglx = "m"ly = "d"lz = "yyyy"rq = InputBox("请输入一个日期")n = InputBox("输入增加月的数目：")Msg = "新日期:" & DateAdd(lx, n, rq)Sheet3.Range("a1") = MsgMsg = "新日期:" & DateAdd(ly, n, rq)Sheet3.Range("a2") = MsgMsg = "新日期:" & DateAdd(lz, n, rq)Sheet3.Range("a3") = MsgEnd 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年的时间，这与我们使用函数参数的定义是一致。
