- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]为日期输入框赋值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104947)
-- 发布时间：2017/8/8 22:16:00
-- [求助]为日期输入框赋值
图中黄色框中是“窗口1”中Label1控件显示的当前年月，格式是“2017年8月”；
控件“窗口2”中有个开始时间和结束时间的DateTimePicker输入框，希望“开始时间”初始值取Label1控件显示的当前月的第一天，“结束时间”的初始值取当前月的最后一天；
即：
开始时间：2017-08-01
结束时间：2017-08-31
此主题相关图片如下：image 2.jpg
-- 发布时间：2017/8/8 22:26:00
--
Dim s As String = "2017年8月"
Dim d As Date = cdate(s & "1日")
Output.Show(d)
Output.Show(d.AddMonths(1).AddDays(-1))