- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 可不可以通过代码自动填入时间？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110864)
-- 发布时间：2017/12/11 12:58:00
-- 可不可以通过代码自动填入时间？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动填入时间.table |
此主题相关图片如下：qq截图20171211120158.jpg
我有一个窗口，设两个日期控件，一个为开始时间，一个为结束时间，想通过combobox控件中的内容自动在日期控件中填入时间，能否做到？求指点？
如图，如案例：
此主题相关图片如下：qq截图20171211125437.jpg
-- 发布时间：2017/12/11 14:20:00
--
参考代码，灵活变通
Dim d As Date = Date.Today
Dim d1 As Date = new Date(d.Year, 1, 1)
Dim d2 As Date = d1.AddYears(1)
msgbox(d1)
msgbox(d2)
--------------
Dim d As Date = Date.Today
Dim d1 As Date = new Date(d.Year, d.Month, 1)
Dim d2 As Date = d1.AddMonths(1)
msgbox(d1)
msgbox(d2)
http://www.foxtable.com/webhelp/scr/2720.htm
-- 发布时间：2017/12/11 14:58:00
--
谢老师指点！大概能明白什么意思，但无从下手，老师能不能给“上周、本周、下周”的一个参考？
-- 发布时间：2017/12/11 15:36:00
--
本周
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) \'获取本周的最后一天
msgbox(dt1)
msgbox(dt2)
上周，在原先的基础上，addDays(-7)即可
下周，在原先的基础上，addDays(7)即可
[此贴子已经被作者于2017/12/11 15:36:27编辑过]