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

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)

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