以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么表达月的第一天  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61585)
--  作者：lrh9537
--  发布时间：2014/12/15 14:51:00
--  [求助]怎么表达月的第一天

Dim year As WinForm.ComboBox = e.Form.Controls("年")
Dim month As WinForm.ComboBox = e.Form.Controls("月")
Dim csrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim FirstDay As Date = New Date(year.Text,1,1) \'第一天
Dim LastDay As Date = New Date(year.Text,month.Text,Date.DaysInMonth(year.Text,month.Text)) \'最后一天

 

 

 


Dim MDay As Date = New Date(month.Text,1)\'月的第一天
--  作者：有点甜
--  发布时间：2014/12/15 15:02:00
--  

 参考

 

http://www.foxtable.com/help/topics/2720.htm

 
--  作者：lrh9537
--  发布时间：2014/12/15 15:19:00
--  

Dim MDay As Date = New Date(month.Text,1)\'月的第一天

帮我改下代码，这个表示不了
--  作者：有点甜
--  发布时间：2014/12/15 15:25:00
--  

Dim year As WinForm.ComboBox = e.Form.Controls("年")
Dim month As WinForm.ComboBox = e.Form.Controls("月")
Dim csrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim FirstDay As Date = New Date(year.Text,month.Text,1) \'第一天
Dim LastDay As Date = New Date(year.Text,month.Text,Date.DaysInMonth(year.Text,month.Text)) \'最后一天