时间差问题

Question

问题如下：让两个不同的时间相减,计算相差多少个月。例如2007.3.3至2007.5.5日，实际相差2个月零2天，就看作是差3个月。请问该如何写代码才能实现？谢谢大家！

Answer 1

Function MonthDiff(ByVal dt1 As Date, ByVal dt2 As Date) As Integer
    Dim lMonth As Long
    lMonth = DateDiff("m", dt1, dt2)
    If DateAdd("m", lMonth, dt1) < dt2 Then lMonth = lMonth + 1
    MonthDiff = lMonth
End Function