DataAdd函数

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分	描述
interval	必要。字符串表达式，是所要加上去的时间间隔。
number	必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date	必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

设置

interval 参数具有以下设定值：

设置	描述
yyyy	年
q	季
m	月
y	一年的日数
d	日
w	一周的日数
ww	周
h	时
n	分钟
s	秒

说明

可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。

为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。

DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：

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

上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。

如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。

如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。

注意   DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。

---

　

DateAdd 函数示例

本示例先取得一个日期，再用 DateAdd 函数显示未来数月后的日期。

Dim FirstDate As Date   ' 声明变量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m"   ' "m"指定以“月份”作为间隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg

---

　

相关基础知识：

　

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如，假设一方法接受了三个参数：

DoSomeThing namedarg1, namedarg2, namedarg3

在对命名参数赋值时，可使用以下语句：

DoSomeThing namedarg3 := 4, namedarg2 := 5, namedarg1 := 20

注意，命名的参数不必按语法中安排的正规顺序出现。

　

字符串表达式

任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串 Variant 或返回字符串 Variant (VarType 8) 的函数。

　

数值表达式

任何其值为数的表达式。表达式的元素可包含任何关键字、变量、常数和运算符的组合，其结果为数。

　

参数

传递给一个过程的常数、变量或表达式。

　

Long 数据类型

 4 字节的整型值，取值范围从 -2,147,483,648 到 2,147,483,647。在 Visual Basic中可用符号 (&) 的类型声明字符来表示 Long。