以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]月份问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113452)
--  作者：huangfanzi
--  发布时间：2018/1/16 12:04:00
--  [求助]月份问题
假定有个日期是2018-1-15号，我要知道下个月的第1天日期及最后一天日期，即2018-2-1与2018-2-28，也就是要知道下N个月的第1天日期与最后一天日期，如果N是3，哪返回日期就是2018-4-1与2018-4-30
这个假定的日期是不固定的，比如可以由窗口中的日期组件自由选择。
请问老师代码如何编，谢谢！
--  作者：有点甜
--  发布时间：2018/1/16 12:06:00
--  

参考

 

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

 
--  作者：有点甜
--  发布时间：2018/1/16 12:11:00
--  
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)