在VBA中将HH:MM:SS字符串转换为数字

Function ConvertTimeToNumber(timeString As String) As Double
    Dim timeArray() As String
    Dim hours As Double
    Dim minutes As Double
    Dim seconds As Double
    
    timeArray = Split(timeString, ":")
    
    hours = CDbl(timeArray(0))
    minutes = CDbl(timeArray(1))
    seconds = CDbl(timeArray(2))
    
    ConvertTimeToNumber = hours * 3600 + minutes * 60 + seconds
End Function

Sub Test()
    Dim timeString As String
    Dim timeNumber As Double
    
    timeString = "12:34:56"
    timeNumber = ConvertTimeToNumber(timeString)
    
    MsgBox timeNumber
End Sub