主题：可不可以通过代码自动填入时间？

参考代码，灵活变通

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

本周

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)即可