Функция

DateAdd

Синтаксис

DateAdd(interval, number, date)

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

Параметры

Замечания

Функция использует именованные аргументы. Функция DateAdd предназначена для добавления или вычитания указанного временного интервала из значения даты. Например, с помощью этой функции можно вычислить дату, на 30 дней более позднюю, чем текущая, или время, на 45 минут более позднее, чем текущее.
Для добавления дней к аргументу date можно задавать временной интервал как день года ("y"), день месяца ("d") или день недели ("w"). Функция DateAdd не возвращает неправильных дат. Следующее выражение добавляет один месяц к 31 января:

DateAdd("m", 1, "31-янв-95")

В данном случае будет возвращена дата 28-фев-95, а не 31-фев-95. Если в качестве аргумента date указать 31-янв-96, то возвращается дата 29-фев-96, поскольку 1996 год является високосным.
Если будет получена дата, более ранняя, чем 100 год (т.е. вычитаемый временной интервал содержит больше лет, чем исходное значение date), возникнет ошибка. Если number не является значением типа Long, оно округляется до ближайшего целого числа перед выполнением операции.
Параметр interval может принамать одно их следующих значений: yyyy -Год, q - Квартал, m - Месяц, y - День года, d - День месяца, w - День недели, ww - Неделя, h - Часы, n - Минуты, s -Секунды.

Пример использования

'в данном примере функция DateAdd используется для вычисления даты,
'на определенное число месяцев более поздней, чем указанная пользователем

Dim FirstDate As Date 'объявляет переменные
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "м" 'интервал указывается в месяцах
FirstDate = InputBox("Введите дату")
Number = InputBox("Введите число месяцев, которое следует добавить")
Msg = "Новая дата: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg

Дополнительная информация

Категория: Обработка данных дата/время

Еще функции: Date, DateAdd, DateDiff, DatePart, DateSerial, DateValue, Day, Hour, Minute, Month, MonthName, Now, Second, Time, Timer, TimeSerial, TimeValue, WeekDay, WeekDayName, Year

Логин:

Пароль:

Регистрация, забыли пароль?