以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请问下，这个代码要怎么写，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188203)

--  作者：yang8604 --  发布时间：2023/9/7 11:19:00 --  请问下，这个代码要怎么写，谢谢 根据当前的时间，自动判断上周和上上周的时间，并在时间栏中自动显示上周和上上周，且随着时间的推移，时间栏也跟着变化 此主题相关图片如下：qq截图20230907111755.bmp

--  作者：有点蓝 --  发布时间：2023/9/7 11:38:00 --   参考：http://www.foxtable.com/webhelp/topics/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) \'获取本周的最后一天 Dim Filter As String Filter = "日期 >= #" & dt1.AddDays( - 7) & "# And 日期 <= #" & dt2.AddDays( - 7) & "#" msgbox("上周条件：" & Filter) 可以改为使用find查询（http://www.foxtable.com/webhelp/topics/0396.htm），在这个条件之内的就是上周 Dim Filter1 As String = "日期 >= #" & dt1.AddDays( - 14) & "# And 日期 <= #" & dt2.AddDays( - 14) & "#" msgbox("上上周条件：" & Filter1)