以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]已知年份，月份，如何获得该月的第一天，和该月的最后一天  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160733)

--  作者：suliao9641 --  发布时间：2021/2/19 12:51:00 --  [求助]已知年份，月份，如何获得该月的第一天，和该月的最后一天 如，年=2006，月=5 获得2006-5-1及2006-5-31 Dim nian As WinForm.ComboBox = e.Form.Controls("年") Dim yue As WinForm.ComboBox = e.Form.Controls("月") Dim sd As Date=Format(cdate(yue.Value & "/1/" & nian.Value),"D")  msgbox(sd) Dim ed As Date=Format(cdate(yue.Value & "/31/" & nian.Value),"D")  msgbox(ed) 这个代码对有31天日期执行正常，但是2月份和30天的月份就报错，该怎么改

--  作者：有点蓝 --  发布时间：2021/2/19 13:47:00 --   参考：http://www.foxtable.com/webhelp/topics/0265.htm