IBM Lotus Symphony
|
Вычисляет порядковое значение времени по заданным параметрам часов, минут и секунд, передаваемых в виде числового значения. Впоследствии это число позволит вычислить разницу между двумя значениями времени.
TimeSerial (Часы, Минуты, Секунды)
Дата
Часы: целочисленное выражение, указывающее значение часов. Допустимые значения: 0-23.
Минуты: целочисленное выражение, указывающее значение минут. В общем случае, следует применять значения от 0 до 59. Однако можно указывать и значения, лежащие вне этого диапазона, - в этом случае значение минут будет влиять на значение часов.
Секунды: целочисленное выражение, указывающее значение секунд. В общем случае, следует применять значения от 0 до 59. Однако можно указывать и значения, лежащие вне этого диапазона, - в этом случае значение секунд будет влиять на значение минут.
Примеры:
12, -5, 45 соответствует времени 11 часов, 55 минут, 45 секунд
12, 61, 45 соответствует времени 13 часов, 2 минуты, 45 секунд
12, 20, -2 соответствует времени 12 часов, 19 минут, 58 секунд
12, 20, 63 соответствует времени 12 часов, 21 минута, 4 секунды
Функция 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