Читайте также:
|
|
Возвращает значение типа Variant(Long), указывающее число временных интервалов между двумя датами
Параметры. Функция содержит именованные аргументы
Interval - Обязательный аргумент типа String, указывающего тип добавляемого временного интервала:
Interval не чуствителен к регистру букв.Литерал должен быть заключен в кавычки. Для вычисления дней между двумя датами можно использовать значение интервала дня:"y" или "d"
Date1 - Обязательный аргумент типа Variant(Date) или литерал даты - первая календарная дата при вычислении разности дат
Date2 - Обязательный аргумент типа Variant(Date) или литерал даты - вторая календарная дата при вычислении разности дат
FirstDayOfWeek - Необязательный аргумент типа Long, определяющего день недели. Допускается использование констант:
vbUseSystem | Используется значение национальных системных установок | |
vbSunday | Воскресенье(по умолчанию) | |
vbMonday | Понедельник | |
vbTuesday | Вторник | |
vbWednesday | Среда | |
vbThursday | Четверг | |
vbFriday | Пятница | |
vbSaturday | Суббота |
FirstWeekOfYear - Необязательный аргумент - числовая константа, указывающая, какой день недели считать первым:
vbUseSystem | Используется системная информация | |
vbFirstJan1 | Неделя, содержащая 1 января | |
vbFirstFourDays | Первая неделя, содержащая как минимум 4 дня нового года | |
vbFirstFullWeek | Первая полная неделя года |
Пример
' Вычисляем сколько дней осталось до 21 векаDim Today as Date' сегодняшний деньDim Millenium As Date' 1 день 21 векаDim retval' возвращаемое значениеToday=Date ' узнаем текущую системную датуMillenium="01.01.01"retval= DateDiff ("d",Today,Millenium)Form1.Caption = CStr(retval) ' выводим в заголовке формыДата добавления: 2015-07-11; просмотров: 105 | Нарушение авторских прав