dateadd返回包掺滦贾溺含一个日期的Variant(Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
DateAdd函数语法中有下列命名参数：
部分
描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant(Date) 或表示日期的文字，这一日期还加上了时间间隔。
设置
interval参数具有以下设定值：
设置
描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
sub test()
Dim da As Date da = "2014-4-7" Debug.Print "当前日期：" & MyDate Debug.Print "前5天的日期：" & DateAdd("d", -5, MyDate) Debug.Print "后5天的日期：" & DateAdd("d", 10, MyDate) Debug.Print "下月的今日：" & DateAdd("m", 1, MyDate) Debug.Print "下周同星期数的日期：" & DateAdd("ww", 1, MyDate) Debug.Print "明年的今日：" & DateAdd("yyyy", 1, MyDate)End Sub
输出结果当前日期：2014-4-7前5天的日期：2014-4-2后5天的日期：2014-4-12下月的今日：2014-5-7下周同星期数的日期：2014-4-14明年的今日：2015-4-7