目录

# TimeValue 函数

根据作为字符串传送的指定时、分和秒参数计算以单一数值表示的顺序时间值。此值可以用来计算两个时间之间相差的时间。

## 语法:

    TimeValue (Text As String)

## 返回值:

日期

## 参数:

「Text」: 含有以 "HH:MM:SS" 格式计算的时间的任意字符串表达式。

此函数可用于将任何时间转换成单一值，以便计算时间间隔。

TimeValue 函数的返回类型是变量，带有 VarType 7 (即日期)，并在内部将此值存储为大于 0 小于 0.9999999999 的双精度数。

在 DateSerial 或 DateValue 函数中，顺序日期值的计算结果为与某个固定日期相差的天数，但对于 TimeValue 函数，您只能利用它的返回值来进行计算，而不能计算返回值本身。

在 TimeSerial 函数中，可以用独立的数字表达式来传送单个参数 (hour、minute、second)；而在 TimeValue 函数中，则用含有时间的参数来传送字符串。

### 错误代码:

5 无效的过程调用

13 数据类型不匹配

## 示例:

    Sub ExampleTimerValue
    Dim daDT As Date
    Dim a1, b1, c1, a2, b2, c2 As String
        a1 = "start time"
        b1 = "end time"
        c1 = "total time"
        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