按当前周查询(50分)

在ACCESS中怎样按当前周查询（从这个星期一到星期六），主要是为了做周报表。

dayofweek(datetime)可知道某个日期是星期几。

下面这个函数可以返回指定日期的周前后日期
procedure(indate1:Tdatetime;var outdate1:tdatetime;var outdate2:Tdatetime)
//indate1:指定日期
//outdate1:星期天的date: 星期天为周的第一天（老外的习惯）
//outdate2:星期六的date
var n:integer;
begin
n:=dateofweek(indate1);
outdate1:=indate1-n+1;
outdate2:=indate1-n+6;
end;

谢！