Syntax

DateAdd(interval$, increment&, date)

Description

Returns a Date variant representing the sum of date and a specified number (increment) of time intervals (interval$).

Comments

This function adds a specified number (increment) of time intervals (interval$) to the specified date (date). The following table describes the parameters to the DateAdd function:

Parameter

Description

Interval$

String expression indicating the time interval used in the addition.

Increment

Integer indicating the number of time intervals you wish to add. Positive values result in dates in the future; negative values result in dates in the past.

Date

Any expression convertible to a Date.

The interval$ parameter specifies what unit of time is to be added to the given date. It can be any of the following:

Time

Intervale

"y"

Day of the year

"yyyy"

Year

"d"

Day

"m"

Month

"q"

Quarter

"ww"

Week

"h"

Hour

"n"

Minute

"s"

Second

"w"

Weekday

To add days to a date, you may use either day, day of the year, or weekday, as they are all equivalent ("d", "y", "w").

The DateAdd function will never return an invalid date/time expression. The following example adds two months to December 31, 1992:

  s# = DateAdd("m",2,"December 31,1992")

In this example, s is returned as the double-precision number equal to "February 28, 1993", not "February 31, 1993".

A runtime error is generated if you try to subtract a time interval that is larger than the time value of the date.

Example

This example gets today's date using the Date$ function; adds three years, two months, one week, and two days to it; and then displays the result in a dialog box.

Sub Main()

  Dim sdate$
  sdate$ = Date$
  NewDate# = DateAdd("yyyy",4,sdate$)
  NewDate# = DateAdd("m",3,NewDate#)
  NewDate# = DateAdd("ww",2,NewDate#)
  NewDate# = DateAdd("d",1,NewDate#)
  s$ = "Four years, three months, two weeks, and one day from now will be: "
  s$ = s$ & Format(NewDate#,"long date")
  MsgBox s$
End Sub

See Also

DateDiff (function).

D