参考
Dim d as date = "2018-05-03"d = new Date(d.year, d.month, 1)d = d.AddMonths(1).AddDays(-1)msgbox(d)
加好友 
发短信
Post By：2018/5/15 11:56:00 [显示全部帖子]
