主题：到期日期问题

addMonths(3).AddDays(-1)

http://www.foxtable.com/webhelp/scr/1337.htm

http://www.foxtable.com/webhelp/scr/2471.htm

代码没问题啊

Dim d As Date = "2015-11-30"
Dim d2 As Date = d.AddMonths(3).AddDays(-1)
Dim d3 As Date = d.AddMonths(3*1).AddDays(-1)
Dim d4 As Date = d.AddMonths(3*12).AddDays(-1)
msgbox(d4)

具体问题，请上传实例说明。

项目和代码都没问题。

你是不是导入数据了？你导入的数据肯定有问题。

现在你项目损坏了，请好好检查一下你导入的数据。