IBM Lotus Symphony


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

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

Синтаксис:

TimeValue (Текст As String)

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

Дата

Параметры:

Текст: строковое выражение, задающее время в формате "ЧЧ:ММ:СС".

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

Функция TimeValue возвращает значение типа Variant с VarType 7 (Date) и сохраняет его во внутреннем формате в виде вещественного числа двойной точности от 0 до 0,9999999999.

В отличие от функций DateSerial и DateValue, вычисляющих порядковые значения даты относительно фиксированной даты, функция TimeValue возвращает значения, которые можно лишь сравнивать между собой и вычитать одно из другого; их абсолютные величины не имеют смысла.

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

Коды ошибок

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

13 Несоответствие типов

Пример:

Sub ExampleTimerValue

Dim daDT as Date

Dim a1, b1, c1, a2, b2, c2 as String

a1 = "Начальное время"

b1 = "Конечное время"

c1 = "Общее время"

a2 = "8:34"

b2 = "18:12"

daDT = TimeValue(b2) - TimeValue(a2)

c2 = a1 & ": " & a2 & chr(13)

c2 = c2 & b1 & ": " & b2 & chr(13)

c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))

Msgbox c2

end sub


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