主题：上月的最后一天 ,及上一个月的第一天 表达式该怎么写呢?

请教,如题

 

上月的最后一天 ,及上一个月的第一天 表达式该怎么写呢?

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)

参考下

类似这样吧

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

多谢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 了

 

 

上月的第一天还用求?肯定是1号啊..    Date.Today.AddMonths(-1) 获得上一月是几月即可.