Функция DateSerial
Возвращает результат функции Variant (Date) для указанного года, месяца и дня.
Синтаксис
DateSerial(год, месяц, день)
Синтаксис функции DateSerial включает следующие именованные аргументы:
| Part | Описание |
|---|---|
| year | Обязательный аргумент типа Integer. Число от 100 до 9999 включительно или числовое выражение. |
| month | Обязательный аргумент типа Integer. Любое числовое выражение. |
| день | Обязательный аргумент типа Integer. Любое числовое выражение. |
Замечания
Чтобы указать дату, например 31 декабря 1991 г., диапазон чисел для каждого аргумента DateSerial должен находиться в допустимом диапазоне для единицы. т. е. 1–31 для дней и 1–12 месяцев. Однако можно также указать относительные даты для каждого аргумента с помощью любого числового выражения, представляющего некоторое количество дней, месяцев или лет до или после определенной даты.
В следующем примере вместо абсолютных чисел даты используются числовые выражения. Здесь функция DateSerial возвращает дату, которая является за день до первого дня (1 - 1), за два месяца до августа (8 - 2), за 10 лет до 1990 года (1990 - 10); другими словами, 31 мая 1980 г.
В операционных системах Windows 98 и Windows 2000 двузначные года в аргументе год интерпретируются в соответствии с параметрами, определяемыми пользователем. Согласно стандартным параметрам значения от 0 до 29 включительно интерпретируются как 2000–2029 гг. Значения по умолчанию от 30 до 99 интерпретируются как 1930–1999 гг. Для всех остальных значений аргумента год используются четырехзначные числа (например, 1800).
Более ранние версии Windows интерпретируют двухзначные годы на основе описанных ранее значений по умолчанию. Чтобы функция гарантированно вернула нужное значение, используйте четырехзначные числа.
Если один из аргументов превышает допустимый предел, увеличивается значение следующего аргумента. Например, если указано значение 35 дней, оно рассматривается как один месяц и определенное количество дней, зависящее от конкретного месяца. Если хотя бы один аргумент выходит за пределы от -32768 до 32767, возникает ошибка. Если указанная тремя аргументами дата выходит за допустимые пределы для дат, также возникает ошибка.
Примечание.
Для года, месяца и дня, если свойство Calendar имеет значение григорианского, предполагается, что указанное значение будет григорианским. Если для свойства Calendar указано значение "Hijri", указанные значения считаются датой по календарю Хиджра.
Возвращаемая часть даты выражается в единицах времени текущего календаря Visual Basic. Например, если выбран календарь Хиджра, и необходимо вернуть значение года, будет возвращено значение по календарю Хиджра. Для года аргумента значения от 0 до 99 включительно интерпретируются как годы 1400–1499. Для всех остальных значений аргумента год используйте полные четырехзначные числа (например, 1520).
Пример
В этом примере функция DateSerial используется для получения даты для указанного года, месяца и дня.
Dim MyDate
' MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12) ' Return a date.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.