Функция DateAdd

Функция DateAdd используется для прибавления или вычитания указанного интервала времени. Тип данных Date работает только с датами диапазона от 100 г.н.э. до 9999 г.н.э. Поэтому, если DateAdd выходит за пределы этого диапазона, то генерируется ошибка стадии выполнения Invalid procedure call or argument. Функция DateAdd не возвращает неправильных дат. Следующее выражение добавляет один месяц к 31 января:

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

В данном случае будет возвращена дата 28-фев-95, а не 31-фев-95.  Если в качестве аргумента date указать 31-янв-96, то возвращается дата 29-фев-96, поскольку 1996 год является високосным

Возвращает значение типа Variant(Date), содержащее дату, к которой добавлен указанный интервал

Interval

Обязательный аргумент типа String, указывающего тип добавляемого временного интервала:

yyyy	Год
q	Квартал
m	Месяц
y	День года
d	День месяца
w	День недели
ww	Неделя
h	Часы
n	Минуты
s	Секунды

Interval не чуствителен к регистру букв. Литерал должен быть заключен в кавычки. Для добавления дней можно использовать любое значение интервала дня:"y", "w" или "d"

Number

Обязательный аргумент - числовое выражение, указывающее число добавляемых временных интервалов. Может быть положительным(для получения более поздних дат) и отрицательным(для получения более ранних дат). Если Number дробное число, то дробная часть отбрасывается(не округляется) системой

Date

Обязательный аргумент типа Variant(Date) или литерал даты(буквенное обозначение даты, представляющий дату, к которой прибавляется указанный временной интервал

' Вычисляем дату на 15 дней более позднюю, чем текущая
Dim Today
Dim NewDate As Date 
Today=Date ' узнаем текущую системную дату
NewDate=DateAdd("y",15,Today)
 ' Преобразуем в строку и выводим в заголовке формы
Form1.Caption = CStr(NewDate)