Excel把xx小时xx分钟xx秒转换为xx秒

Function TimeToSeconds(text As String) As Double
    ' 下面的单位可以根据需要修改，例如改成 天，小时，分钟，秒
    ' 或者改用英文单位 days, hours, minutes, seconds
    Const UNIT_DAY As String = "天"
    Const UNIT_HOUR As String = "小时"
    Const UNIT_MINUTE As String = "分钟"
    Const UNIT_SECOND As String = "秒"

    Dim days As Double, hours As Double, minutes As Double, seconds As Double
    Dim pos As Long, tempText As String

    days = 0: hours = 0: minutes = 0: seconds = 0
    tempText = Trim(text)

    On Error Resume Next

    pos = InStr(tempText, UNIT_DAY)
    If pos > 0 Then
        days = Val(Trim(Left(tempText, pos - 1)))
        tempText = Trim(Mid(tempText, pos + Len(UNIT_DAY)))
    End If

    pos = InStr(tempText, UNIT_HOUR)
    If pos > 0 Then
        hours = Val(Trim(Left(tempText, pos - 1)))
        tempText = Trim(Mid(tempText, pos + Len(UNIT_HOUR)))
    End If

    pos = InStr(tempText, UNIT_MINUTE)
    If pos > 0 Then
        minutes = Val(Trim(Left(tempText, pos - 1)))
        tempText = Trim(Mid(tempText, pos + Len(UNIT_MINUTE)))
    End If

    pos = InStr(tempText, UNIT_SECOND)
    If pos > 0 Then
        seconds = Val(Trim(Left(tempText, pos - 1)))
    End If

    On Error GoTo 0

    TimeToSeconds = days * 86400 + hours * 3600 + minutes * 60 + seconds
End Function