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