IBM Lotus Symphony
|
Вычисляет порядковое значение времени по заданным параметрам часов, минут и секунд, передаваемых в виде строк. Впоследствии это число позволит вычислить разницу между двумя значениями времени.
TimeValue (Текст As String)
Дата
Текст: строковое выражение, задающее время в формате "ЧЧ:ММ:СС".
Функция TimeValue позволяет преобразовать любое значение времени в число, с помощью которого можно вычислять разницу во времени.
Функция TimeValue возвращает значение типа Variant с VarType 7 (Date) и сохраняет его во внутреннем формате в виде вещественного числа двойной точности от 0 до 0,9999999999.
В отличие от функций DateSerial и DateValue, вычисляющих порядковые значения даты относительно фиксированной даты, функция TimeValue возвращает значения, которые можно лишь сравнивать между собой и вычитать одно из другого; их абсолютные величины не имеют смысла.
При работе с функцией TimeSerial вы передаете параметры (часы, минуты, секунды) в виде отдельных числовых выражений. При работе с функцией TimeValue, напротив, вы передаете параметр времени в виде строки.
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