以文本方式查看主题

-  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=43118)
--  作者：zbsdkq012890
--  发布时间：2013/11/29 20:10:00
--  求助代码！
如何把今天的日期自动转换为上个月的最后一天的日期。例如今天是2013-11-29，则转换为2013-10-31号。谢谢！！
--  作者：有点甜
--  发布时间：2013/11/29 20:16:00
--  
 如下
Dim d As Date = Date.Today.AddMonths(-1)
Dim days As Integer = Date.DaysInMonth(d.Year, d.Month)
d = new Date(d.Year, d.Month, days)
msgbox(d)