7,766
社区成员
发帖
与我相关
我的任务
分享时间差问题
问题如下：让两个不同的时间相减,计算相差多少个月。例如2007.3.3至2007.5.5日，实际相差2个月零2天，就看作是差3个月。请问该如何写代码才能实现？谢谢大家！
...全文
请发表友善的回复…
发表回复
Tiger_Zhao 2007-11-09
- 打赏
- 举报
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