Содержимое

# TimeValue Function

Вычисляет значение времени, представленное числом, из указанных часов, минут и секунд (параметры передаются как строки), которое представляет собой время в едином числовом формате. Это значение может использоваться для вычисления разности между показаниями времени.

## Синтаксис

    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