跨天计算时间差

opiona

h.rar (9.56 KB, 下载次数: 26)

2018-7-23 06:46 上传

点击文件名下载附件

小花鹿

直接算不行吗？
Sub test() '
Dim ar, i&, ss, h, m, s
ar = [a1].CurrentRegion
For i = 2 To UBound(ar)
    ss = Format(Abs(ar(i, 2) - ar(i, 1)) * 24 * 60 * 60, "0")
    h = Int(ss / (60 * 60))
    m = Int((ss - h * 60 * 60) / 60)
    s = ss - h * 60 * 60 - m * 60
    Cells(i, 3) = "'" & h & ":" & m & ":" & s
Next i
End Sub

wjcmouse

收藏这个答案了。谢谢

hhjjpp

可惜format不识得 [h]

1. Sub tttt()
   
2. Dim S$, t#
   
3. t = [b2] - [a2]
   
4. S = Int(t * 24) & Format(t, ":m:s")
   
5. MsgBox (S)
   
6. End Sub
   

复制代码

YZC51

请参考
Function mytime(day1, day2)
    t1 = day2 - day1: t = Abs(t1)
    mytime = IIf(t1 < 0, "-", "") & Application.Text(t, "[h]:mm:ss")
End Function