主题：date.addmonths方法有问题？

在命令窗口执行代码：

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方法有问题？

 

 不能直接用AddMouths

 

 你需要先查询当月最后一天，然后重新new date()

 

 参考

 

http://www.foxtable.com/help/topics/0265.htm

 

http://www.foxtable.com/help/topics/1337.htm

 

 

多一个代码过程,先算月,再算最大天数,再得出当月最后一天的日期

仔细检查逻辑，是没有问题的！