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

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

Пожалуйста, поддержите нас!