以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期相关  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92759)
--  作者：散客
--  发布时间：2016/11/11 21:58:00
--  日期相关
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)) \'获取该月的最后一天
求教：目的是求得本期（通常为月或年）的第一天，最后一天和上期的最后一天，一月是个麻烦。有通用代码吗

求高手
--  作者：散客
--  发布时间：2016/11/11 22:36:00
--  
Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddDays(40) \'加上40天
Dim d2 As Date = d.AddDays(-40) \'减去40天
Output.Show("40天后的日期：" & d1)
Output.Show("40天前的日期：" & d2)
--  作者：散客
--  发布时间：2016/11/11 22:51:00
--  
已解决