excel中vba使用dateadd函数的详解工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

首先我们打开一个工作样表作为例子。

2/6

使用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/6

我们先激活当前工作表，然后对过程所需的变量进行声明，这里主要是对dateadd函数的第一个参数进行讲解，并用实际例子进行对比来加深理解。这里我们使用了统一的n变量来对比第一参数的区别。

4/6

我设置了3个变量lx、ly、lz、并分别赋值字符串M、D、Y，分别代表的是月，日和年，dateadd还支持秒分时，还有周这样的单位，因为我输入的是日期，所以没有写入代码，如果输入类型为时间，同样可以使用dateadd函数来进行增加。

5/6

接着我将dateadd函数返回值赋予msg变量，并将变量分别写入工作表的a1、a2、a3单元格中，试运行代码，得到结果。

6/6

可以看到3个结果分别是增加了2个月，增加了2天还有增加了2年的时间，这与我们使用函数参数的定义是一致。

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCEL函数单元格