以文本方式查看主题

-  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=10822)

--  作者:红叶
--  发布时间:2011/6/25 11:18:00
--  如何得到指定日期当年的最后一天和第一天的日期

如何得到指定日期当年的最后一天和第一天的日期

帮助只有获得某个月的第一天和最后一天的日期


--  作者:czy
--  发布时间:2011/6/25 11:31:00
--  

帮助中有的。

 

Dim FirstDay As Date = New Date(year(Today()),1,1)
Dim LastDay As Date = New Date(year(Today()),12,Date.DaysInMonth(year(Today()),12))
Output.Show(FirstDay)
Output.Show(LastDay)