在命令窗口执行代码:
Dim d1 As Date
d1=new Date(2014,1,31)
output.show(d1)
For i As Integer=1 To 8
d1=d1.AddMonths(1)
output.show(d1)
Next
结果是:
2014/1/31
2014/2/28
2014/3/28 错误的值!
2014/4/28
2014/5/28
2014/6/28
2014/7/28
2014/8/28
2014/9/28
改代码为:
Dim d1,d2 As Date
d1=new Date(2014,1,31)
output.show(d1)
For i As Integer=1 To 8
d2=d1.AddMonths(i)
output.show(d2)
Next
结果是:
2014/1/31 ’正确的值!
2014/2/28
2014/3/31
2014/4/30
2014/5/31
2014/6/30
2014/7/31
2014/8/31
2014/9/30
date.addmonths方法有问题?