以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  上月的最后一天 ,及上一个月的第一天 表达式该怎么写呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32966)
--  作者：ljh29206
--  发布时间：2013/5/11 9:39:00
--  上月的最后一天 ,及上一个月的第一天 表达式该怎么写呢?

请教,如题

 

上月的最后一天 ,及上一个月的第一天 表达式该怎么写呢?
--  作者：XYT
--  发布时间：2013/5/11 9:43:00
--  

Dim d As Date = e.DataRow("日期")
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
        Dim ld As Date = New Date(y,m,Days)

参考下

[此贴子已经被作者于2013-5-11 9:43:20编辑过]
--  作者：夕然
--  发布时间：2013/5/11 9:44:00
--  

类似这样吧

d1 = New Date(y, m-1, 1) \'取得上月的第一天
d2 = new Date(y, m-1, Date.DaysInMonth(y,m)) \'取得上月的最后一天
       

[此贴子已经被作者于2013-5-11 9:43:59编辑过]
--  作者：ljh29206
--  发布时间：2013/5/11 9:44:00
--  

多谢2位帮忙!

 

Dim d1 = New Date(Date.Today.Year, Date.today.Month-1, 1)

Dim d2 = new Date(Date.Today.Year, Date.today.Month-1, Date.DaysInMonth(Date.Today.Year,Date.today.Month-1))

 

OK 了

 

 

[此贴子已经被作者于2013-5-11 9:50:12编辑过]
--  作者：Bin
--  发布时间：2013/5/11 9:45:00
--  
上月的第一天还用求?肯定是1号啊..    Date.Today.AddMonths(-1) 获得上一月是几月即可.

上月最后一天
Dim d As Date = Date.Today.AddMonths(-1)
Date.DaysInMonth(d.Year,d.Month)