关于VB中时间的计算

Question

VB中关于时间的合计:
比如:  15:02:03+13:15:14=28:17:17
但事实上这两个相加等于4:17:17,小时满24就退回0重算了,有哪位兄弟知道这个格式怎么算,或者怎么处理这两个数值才能等于上述的值呢!

Answer 1

Private Sub Command1_Click()
    Dim shu1() As String
    Dim shu2() As String
    Dim he(2) As String
    Dim time1 As String
    Dim time2 As String
    Dim zhi As String
    time1 = "15:02:03"
    shu1 = Split(time1, ":")
    'Print time1
    time2 = "13:15:14"
    shu2 = Split(time2, ":")
    he(0) = CInt(shu1(0)) + CInt(shu2(0))    If he(0) > 24 Then
        he(0) = he(0) - 24
    End If
    Print he(0)
'.......底下做同样的判断，不过 [分] 跟 [秒] 是按超过60来判断的
he(1) = CInt(shu1(1)) + CInt(shu2(1))he(2) = CInt(shu1(2)) + CInt(shu2(2))
'最后
    zhi = he(0) & ":" & he(1) & ":" & he(2)
    Print zhi
End Sub