TimeSerial Function

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

Синтаксис

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

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

Дата

Параметры:

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

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

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

Примеры:

12, -5, 45 соответствуют 11, 55, 45

12, 61, 45 соответствуют 13, 1, 45

12, 20, -2 соответствуют 12, 19, 58

12, 20, 63 соответствуют 12, 21, 3

Можно воспользоваться функцией TimeSerial, чтобы преобразовать любое время в единое значение, которое можно использовать для вычисления разницы значений времени.

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

В функции TimeValue можно передавать значение времени в виде строки. Однако в функции TimeSerial можно передавать отдельные параметры (Часы, Минута, Секунда) как отдельные числовые выражения.

Пример:

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