DateDiff(Interval,Date1,Date2,[FirstDayOfWeek],[FirstWeekOfYear])
Функция DateDiff используется для вычисления разности двух дат
Возвращаемое значение: Возвращает значение типа Variant(Long), указывающее число временных интервалов между двумя датами
Параметры: Функция содержит именованные аргументы
Interval - Обязательный аргумент типа String, указывающего тип добавляемого временного интервала:
- yyyy - Год
- q - Квартал
- m - Месяц
- y - День года
- d - День месяца
- w - День недели
- ww - Неделя
- h - Часы
- n - Минуты
- s - Секунды
Interval не чуствителен к регистру букв. Литерал должен быть заключен в кавычки. Для вычисления дней между двумя датами можно использовать значение интервала дня:"y" или "d"
Date1 - Обязательный аргумент типа Variant(Date) или литерал даты - первая календарная дата при вычислении разности дат
Date2 - Обязательный аргумент типа Variant(Date) или литерал даты - вторая календарная дата при вычислении разности дат
FirstDayOfWeek - Необязательный аргумент типа Long, определяющего день недели. Допускается использование констант:
FirstWeekOfYear - Необязательный аргумент - числовая константа, указывающая, какой день недели считать первым:
- vbUseSystem=0 Используется системная информация
- vbFirstJan1=1 Неделя, содержащая 1 января
-
vbFirstFourDays=2 Первая неделя, содержащая как минимум 4 дня нового года
-
vbFirstFullWeek=3 Первая полная неделя года
Пример
' Вычисляем сколько дней осталось до 21 века
Dim Today as Date ' сегодняшний день
Dim Millenium As Date ' 1 день 21 века
Dim retval ' возвращаемое значение
Today=Date ' узнаем текущую системную дату
Millenium="01.01.01"
retval=DateDiff("d",Today,Millenium)
|