Функция DateAdd

DateAdd(Interval, Number, Date)

Функция 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 TodayDim NewDate As Date Today=Date ' узнаем текущую системную датуNewDate= DateAdd ("y",15,Today) ' Преобразуем в строку и выводим в заголовке формыForm1.Caption = CStr(NewDate)

Дата добавления: 2015-07-11