时间差问题
问题如下:让两个不同的时间相减,计算相差多少个月。例如2007.3.3至2007.5.5日,实际相差2个月零2天,就看作是差3个月。请问该如何写代码才能实现?谢谢大家!--------------------编程问答--------------------
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
补充:VB , 基础类