Функция DateSerial

Returns a Date value for a specified year, month, and day.

Синтаксис:


DateSerial (Год, Месяц, День)

Return value:

Дата

Параметры:

Год. Целое выражение, которое указывает год. Все значения от 0 до 99 интерпретируются как года 1900-1999. Для годов, не попадающих в этот диапазон, необходимо ввести все четыре цифры.

Месяц. Целое выражение, указывающее месяц заданного года. Допустимые значения: от 1 до 12.

Day: Integer expression that indicates the day of the specified month. The accepted range is from 1-31. No error is returned when you enter a non-existing day for a month shorter than 31 days.

Функция DateSerial возвращает количество дней между 30 декабря 1899 года и указанной датой. Эту функцию можно использовать для вычисления разности между двумя датами.

Функция DateSerial возвращает данные типа Variant с VarType 7 (Date); Это значение хранится как внутреннее значение типа Double. Таким образом, для даты 1.1.1900 возвращается значение 2. Отрицательные значения соответствуют датам до 30 декабря 1899 (не включительно).

Если определена дата, которая лежит вне допустимого диапазона, Collabora Office Basic возвращает сообщение об ошибке.

В то время как функция DateValue определяется как строка, содержащая дату, функция DateSerial принимает каждый из параметров (Год, Месяц, День) как отдельное числовое выражение.

Коды ошибок:

5 Неправильный вызов процедуры

Пример:


  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      msgbox lDate REM возвращает 23476
      msgbox sDate REM возвращает 04/09/1964
  End Sub