请问下，这个代码要怎么写，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问下，这个代码要怎么写，谢谢

共有2773人关注过本帖树形打印复制链接主题：请问下，这个代码要怎么写，谢谢

yang8604

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：1 积分：70 威望：0 精华：0 注册：2023/9/7 11:17:00

请问下，这个代码要怎么写，谢谢 发帖心情

Post By：2023/9/7 11:19:00 [只看该作者]

根据当前的时间，自动判断上周和上上周的时间，并在时间栏中自动显示上周和上上周，且随着时间的推移，时间栏也跟着变化
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20230907111755.bmp

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/7 11:38: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) '获取本周的最后一天

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)

主题：请问下，这个代码要怎么写，谢谢