IBM Lotus Symphony


Функция DateSerial [встроенная]

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

Синтаксис:

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

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

Дата

Параметры:

Год: целочисленное выражение, указывающее год. Все значения от 0 до 99 интерпретируются как годы 1900-1999. Если же нужный год не попадает в этот диапазон, вы должны задать его как четырехзначное число.

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

День: целочисленное выражение, указывающее день заданного месяца. Допустимы значения от 1 до 31. Ошибка не возвращается при вводе несуществующего дня для месяца, который короче 31 дня.

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

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

Если определена дата, не входящая в диапазон допустимых значений, среда Basic Lotus® Symphony™ возвращает сообщение об ошибке.

Если вы задаете DateValue function как строку, содержащую дату, функция 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


Комментарии по продукту | Дополнительная документация | Товарные знаки