主题：[求助]月份问题

假定有个日期是2018-1-15号，我要知道下个月的第1天日期及最后一天日期，即2018-2-1与2018-2-28，也就是要知道下N个月的第1天日期与最后一天日期，如果N是3，哪返回日期就是2018-4-1与2018-4-30

参考

 

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

 

Dim d as date = "2018-05-21"
d = d.AddMonths(1)
Dim d1 As Date = new Date(d.year, d.Month, 1)
Dim d2 As Date = d1.AddMonths(1).AddDays(-1)
msgbox(d1)
msgbox(d2)