access DateAdd函数

 

返回变量型（日期型），其中包含已添加了指定时间间隔的日期。

语法

DateAdd(interval, number, date)

DateAdd 函数的语法包含以下：

参数说明interval必选。，表示要添加的时间间隔。number必选。，标识要添加的间隔数。它可以为正（以获取将来的日期）也可以为负（以获取过去的日期）。date必选。变量型（日期型）或文字，表示已添加间隔的日期。

设置

interval 包含以下设置：

设置说明yyyy年q季度m月y某年的某一天d天w工作日ww周h时n分s秒

注解

可以使用 DateAdd 函数向日期添加指定的时间间隔或从日期减去指定的时间间隔。例如，可以使用 DateAdd 计算距离今天 30 天的日期或距离现在 45 分钟的时间。

若要向 date 添加天数，可以使用“某年的某一天”("y")、“日”("d") 或“工作日”("w")。

DateAdd 函数将不会返回无效日期。以下示例向 1 月 31 日添加了一个月：

DateAdd("m", 1, "31-Jan-95")      

在本例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则该函数返回 96 年 2 月 29 日，因为 1996 年为闰年。

如果计算后的日期在 100 年前（即减去的年数大于 date 中的年数），则会出错。

如果 number 不是 类型的值，则会在求值前将其四舍五入为最近的整数。

 注释    DateAdd 的返回值的格式由“控制面板”设置决定，而不是由在 date 参数中传递的格式决定。

 注释    对于 date，如果 Calendar 属性设置为公历，则提供的日期必须为公历。如果日历为回历，则提供的日期必须为回历。如果月份值为名称，则名称必须与当前 Calendar 属性设置一致。若要最小化月份名称与当前 Calendar 属性设置冲突的可能性，请输入数字的月份值（短日期格式）。

示例

 注释   以下示例演示了此功能在 Visual Basic for Applications (VBA) 模块中的使用。有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个词条。

以下示例将一个日期作为输入，并使用 DateAdd 函数显示将来指定月数后的相应日期。

Dim FirstDate As Date ' Declare variables.Dim IntervalType As StringDim Number As IntegerDim MsgIntervalType = "m" ' "m" specifies months as interval.FirstDate = InputBox("Enter a date")Number = InputBox("Enter number of months to add")Msg = "New date: " & _ DateAdd(IntervalType, Number, FirstDate)MsgBox Msg