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


  共有2692人关注过本帖树形打印复制链接

主题:请问下,这个代码要怎么写,谢谢

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)


 回到顶部