Dim nf As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim yf As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim y As Integer = cint(nf.Text)
Dim m As Integer = cint(yf.Text)
Dim y0 As Integer
Dim dt0 As New Date
If m=1
y0=y-1
dt0 = #y0,12,31#
Else
dt0 = #(y, m-1, Date.DaysInMonth(y,m-1)# '获取该月的最后一天
End If
Dim dt1 As New Date(y, m, 1)
Dim dt2 As new Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
求教：目的是求得本期（通常为月或年）的第一天，最后一天和上期的最后一天，一月是个麻烦。有通用代码吗
求高手
加好友 
发短信
Post By：2016/11/11 21:58:00 [只看该作者]
