以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  建议增加某日的该月最终一天的函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142454)
--  作者：lihe60
--  发布时间：2019/10/28 10:19:00
--  建议增加某日的该月最终一天的函数
如选择日期2019-05-05，增加一个函数，就可以获得2019年5月最后一天和第一天。这样就方便很多了。
--  作者：狐狸爸爸
--  发布时间：2019/10/28 10:36:00
--  
http://www.foxtable.com/webhelp/topics/1337.htm
--  作者：lihe60
--  发布时间：2019/10/30 7:10:00
--  
帮助中这个例子函数太长了，最好再简单点。
--  作者：lihe60
--  发布时间：2019/10/30 7:12:00
--  
函数名（2019-04-05）输出数据为2019-04-01或2019-04-30这样的日期。
--  作者：lihe60
--  发布时间：2019/10/30 7:54:00
--  
Dim d As Date = e.Form.controls("报表日期").text
Dim Days As Integer = Date.DaysInMonth(d.Year,d.month)
tm1 = New Date(d.Year,d.month,1).addmonths(-d.month+1)
tm2 = New Date(d.Year,d.month,Days)

这个代码能简化吗？
--  作者：有点蓝
--  发布时间：2019/10/30 8:57:00
--  
Dim d As Date = e.Form.controls("报表日期").value
tm1 = New Date(d.Year,d.month,1)
tm2 = New Date(d.Year,d.month,Date.DaysInMonth(d.Year,d.month))