关于时间表示的问题

[teiklance]

系统日期的上一个月的第一天
系统日期的上一个月的最后一天

[点点星灯]

上一个月,可以用
Me.Label2.Text = CType(Now, String)
Me.Label3.Text = CType(Now.AddMonths(-1), String)
Me.Label4.Text = CType(Now.AddMonths(1), String)

但第一天和最后一天就不知道了.
UP

[hamadou]

Dim d As Date = Now.Date
Dim p As Date
p = d.AddMonths(-1)
Dim a As Integer = p.DaysInMonth(Year(p), Month(p))
Dim m1 As New Date(Year(p), Month(p), 1)
Dim m2 As New Date(Year(p), Month(p), a)
MessageBox.Show(m1.ToString)
MessageBox.Show(m1.ToString)

[strXiaoCaiNiao]

Dim d1, d2 As String
Dim m, days As Integer
If Today.Month = 1 Then
m = 12
Else
m = Today.Month - 1
End If

days = Today.AddMonths(-1).DaysInMonth(Today.Year, m)
d1 = m & "月1日"
d2 = m & "月" & days & "日"

第一天总是1号,最后一天,这个月有几天就几号

[teiklance]

兰冰的做法比较通俗吧,闵峰Dim d As Date = Now.Date
Dim p As Date
p = d.AddMonths(-1)
Dim a As Integer = p.DaysInMonth(Year(p), Month(p))
Dim m1 As New Date(Year(p), Month(p), 1)
Dim m2 As New Date(Year(p), Month(p), a)
MessageBox.Show(m1.ToString)
MessageBox.Show(m1.ToString)
的方法论只能输出上月第一天,无法输出上月最后一天

[teiklance]

不过还是十分感谢你们的帮助,CSDN万岁

[hidejay]

Dim d As Date = Now.Date
Dim p As Date
p = d.AddMonths(-1)
Dim a As Integer = p.DaysInMonth(Year(p), Month(p))
Dim m1 As New Date(Year(p), Month(p), 1)
Dim m2 As New Date(Year(p), Month(p), a)
MessageBox.Show(m1.ToString)
MessageBox.Show(m2.ToString)
呵呵,错了一个变量,代码拿来要仔细看看,表一味COPY,否则知识永远是人家的