IBM Lotus Symphony
|
Возвращает значение Дата для указанного года, месяца или дня.
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 вычисляет все параметры (год, месяц, день) как отдельные числовые выражения.
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