時間類Time

cmo9020

j = j + 1
        t1 = "": T = ""
        t1 = d(CStr(DATE1 & "_" & rng_set(i, 1)))
        If t1 = "" Then GoTo f3
        T = Hour(t1) & ":" & Minute(t1) & ":" & Second(t1)
        bb(i, j) = T '==========時間放入
f3:

        t1 = "": T = ""
        j = j + 1
        t1 = DB1(CStr(DATE1 & "_" & rng_set(i, 1)))
        If t1 = "" Then GoTo f33
        T = Hour(t1) & ":" & Minute(t1) & ":" & Second(t1)
        bb(i, j) = T '==========時間放入
f33:

         j = j + 1
        a = bb(i, j - 2): b = bb(i, j - 1)
        If a = "" Then a = 0 Else a = TimeValue(a)
        If b = "" Then b = 0 Else b = TimeValue(b)
        ans = a + b
        If ans <> 0 Then
            ans1 = CStr(Hour(ans) & ":" & Minute(ans) & ":" & Second(ans))
            bb(i, j) = ans1
        End If
    Next

iwangyi

将时间格式设置
Format(ans1，"HH:mm:ss")

fxl447098457

cmo9020

都不對...完全對不起來......