以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何只显示本周及本月的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27495)
--  作者：ibehujun
--  发布时间：2013/1/2 21:21:00
--  如何只显示本周及本月的数据

请教高手，

 

我有个表字段 开始日期，结束日期，

 

我想做个菜单按钮，

 

1.显示本周

2.显示本月

 

请问代码如何写啊？好像没有标准函数，谢谢各位
--  作者：nblwar
--  发布时间：2013/1/2 21:29:00
--  
MONTH(日期) = MONTH(DATE())
--  作者：夕然
--  发布时间：2013/1/2 23:02:00
--  
加载本月数据
 Dim d As Date = Date.Today
Dim d1 As Date = New date(d.Year,d.Month,1)
Dim d2 As Date = d1.AddMonths(1)
Tables("日期").Filter = "[日期] >= #" & d1 & "# And [日期] < #" & d2 & "#"