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