Функция DateSerial

Функция 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