求时间间隔代码

lgkent

如图：如何用代码求时间间隔
我的代码是这样：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Date
Dim b As Date
Dim Mrow As Integer
Dim Brng As String, Crng As String

Mrow = Target.Row ’获得光标所在行号
  If Range("L" & Mrow) <> "" And Range("K" & Mrow) <> "" Then
     Brng = Range("L" & Mrow).Address(0, 0) ’取出当前输入单元格行列号
     Crng = Range("K" & Mrow).Address(0, 0)’取出当前输入单元格行列号


     a = CDate(Replace(Range(Brng), Chr(10), " "))  ‘把当前单元格回车符替换为空格
     b = CDate(Replace(Range(Crng), Chr(10), " ")) ‘把当前单元格回车符替换为空格

     Range("N" & Mrow) = a - b   ’问题出在这里，只能求出当前时间间隔，如果是间隔两天就不能求能正确答案，请高手指点。

     End If
End Sub

lunjun626

没看懂{:soso_e101:}

hehex

模拟个附件吧，光这点code 不好说

happyniko

假设b-a>0,
可以考虑用：
Range("N" & Mrow) = Int(b - a) & "天" & Hour(b - a) & "小时" & Minute(b - a) & "分" & Second(b - a) & "秒"
你可以更改。