关于VB DateDiff 函数计算周期问题，请教各位！函数介绍就不用了，我有MSDN。请用我的实例解答。

Question

Sub aaa()
Dim tt As Long
tt = DateDiff("m", "2010-9-10", "2011-9-8")
'tt为：12
tt = DateDiff("m", "2010-9-10", "2011-9-9")
'tt也为：12
tt = DateDiff("m", "2010-9-10", "2011-9-10")
'tt也为：12
tt = DateDiff("m", "2010-9-10", "2011-9-11")
'tt也为：12

'全部都结果为12，这是为什么？
'我相要的是如果未到周年（就算差一天），都计为 12 个月
'如果过了过了一天也增加一个月即为13个月
'如何达到这种效果？
End Sub

Answer 1

DateDiff在计算两个日期间的月数时，会自动忽略日期中的“日”的，所以上面四个语句都相当于：
tt = DateDiff("m", "2010-9", "2011-9")
要想达到你要的效果，单用DateDiff是无法实现的，可以这样：
tt = DateDiff("m", 日期1, 日期2)
if day(日期2)>day(日期1) then tt=tt+1