Читайте также:
|
|
DateSerial(Year,Month,Day)
Функция DateSerial используется для получения даты во внутреннем представлении системы по заданным значениям компонентов даты(года,месяца,дня). Дата во внутреннем представлении - это число дней от установленного в системе начального значения. Функция DateSerial вычисляет по значениям компонентов требуемое число дней. Значения любых компонентов могут быть отрицательными или превышать допустимые календарные значения(12 для месяца и 31 для дня), если результат при этот попадает в допустимый диапазон значений Date. Если значение какого-либо компонента превышает допустимое значение для этого компонента, то изменяется другой компонент даты. Например, 33 дня означают 1 месяц и 2 или 3 дня (в зависимости от месяца)
Возвращаемое значение. Возвращает значение типа Variant(Date). Если полученный результат не попадает допустимый диапазон календарных дат, генерируется ошибка стадии выполнения Invalid procedure call or argument
Параметры. Функция содержит именованные аргументы
Year - Обязательный аргумент типа Integer в диапазоне от 100 до 9999, задающий значение года
Month - Обязательный аргумент типа Integer, задающий значение месяца. Может содержать любое числовое выражение
Day - Обязательный аргумент типа Integer, задающий значение дня. Может содержать любое числовое выражение
Примечание Если любой из аргументов выходит из допустимых значений Integer, генерируется ошибка стадии выполнения Overflow
Пример
' Вычисляем дату, предшествующую ' на 5 дней дате 1 августа 1966 года Dim MyDateMyDate = DateSerial (1966, 8,1 -4) ' возвращает 27.07.66Print MyDateДата добавления: 2015-07-11; просмотров: 199 | Нарушение авторских прав