以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何在1月时获取为12月的参数？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63046)
--  作者：a87918021
--  发布时间：2015/1/12 21:40:00
--  [求助]如何在1月时获取为12月的参数？
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month - 1     \'如何在1月时获取为12月的参数？
Dim d1 As New Date(y,m,1)
Dim d2 As New Date(y,m,Date.DaysInMonth(y,m)) \'获取本月的最后一天
--  作者：有点甜
--  发布时间：2015/1/12 21:41:00
--  
Dim m As Integer = Date.Today.AddMonths(-1).Month