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