DateSerial Function

Возвращает значение типа Date для указанного года, месяца или дня.

Синтаксис


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

Возвращаемое значение:

Дата

Параметры:

Год. Целое выражение, которое указывает год. Все значения от 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 (не включительно).

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

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

Error codes:

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