Содержимое

# Функция DateSerial

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

### Синтаксис:

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

### Return type:

Дата

### Параметры:

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

The DateSerial function returns the data type Variant with VarType 7 (Date). Internally, this value is stored as a Double value, so that when the given date is 1900-01-01, the returned value is 2. Negative values correspond to dates before December 30, 1899 (not inclusive).

Если определена дата, которая лежит вне допустимого диапазона, LibreOffice 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 ' returns 1964-04-09 in ISO 8601 format
      End Sub