Contents
Index 🔎︎

# DateSerial Function

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

### Syntax:

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

### Return value:

Дата

### Parameters:

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

### Example:

      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