以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]为日期输入框赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104947)
--  作者：jyh7081
--  发布时间：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))