IBM Lotus Symphony


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

Вычисляет порядковое значение времени по заданным параметрам часов, минут и секунд, передаваемых в виде числового значения. Впоследствии это число позволит вычислить разницу между двумя значениями времени.

Синтаксис:

TimeSerial (Часы, Минуты, Секунды)

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

Дата

Параметры:

Часы: целочисленное выражение, указывающее значение часов. Допустимые значения: 0-23.

Минуты: целочисленное выражение, указывающее значение минут. В общем случае, следует применять значения от 0 до 59. Однако можно указывать и значения, лежащие вне этого диапазона, - в этом случае значение минут будет влиять на значение часов.

Секунды: целочисленное выражение, указывающее значение секунд. В общем случае, следует применять значения от 0 до 59. Однако можно указывать и значения, лежащие вне этого диапазона, - в этом случае значение секунд будет влиять на значение минут.

Примеры:

12, -5, 45 соответствует времени 11 часов, 55 минут, 45 секунд

12, 61, 45 соответствует времени 13 часов, 2 минуты, 45 секунд

12, 20, -2 соответствует времени 12 часов, 19 минут, 58 секунд

12, 20, 63 соответствует времени 12 часов, 21 минута, 4 секунды

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

Функция TimeSerial возвращает значение типа Variant с VarType 7 (Date). Во внутреннем представлении это значение хранится как вещественное число двойной точности от 0 до 0,9999999999. В отличие от функций DateSerial и DateValue, вычисляющих порядковые значения даты относительно фиксированной даты, функция TimeSerial возвращает значения, которые можно лишь сравнивать между собой и вычитать одно из другого; их абсолютные величины не имеют смысла.

При работе с функцией TimeValue вы передаете параметр времени в виде строки. При работе с функцией TimeSerial, напротив, вы передаете параметры (часы, минуты, секунды) в виде отдельных числовых выражений.

Коды ошибок

5 Недопустимый вызов процедуры

Пример:

Sub ExampleTimeSerial

Dim dDate As Double, sDate As String

dDate = TimeSerial(8,30,15)

sDate = TimeSerial(8,30,15)

MsgBox dDate,64,"Время в виде числа"

MsgBox sDate,64,"Время в системном формате"

End Sub


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