谁能给我一段原代码，查询某个年龄和年龄段的人的列表，数据库是access的(100分)

谁能给我一段原代码，查询某个年龄和年龄段的人的列表，
数据库是access的，里面存储的是出生年月日。

可怜，竟然没有人

如是MSSQL，很容易实现。ACCESS这个东东就不知了！

摘了我项目里的一段代码。关于日期的查询里面都有。
你自己稍微改一下就行。
procedure TzwxxForm.Button2Click(Sender: TObject);
var
ske,fke:Currency;
date1,date2:TDate;
begin
date1:=dtp1.Date;
date2:=dtp2.Date;
tmpQuery.Close;
tmpQuery.SQL.Clear;
tmpQuery.SQL.Add('Select Sum(JE) as ske From SKB ');
tmpQuery.SQL.Add('Where ');
tmpQuery.SQL.Add('RQ>=#'+DateToStr(Date1)+'# and RQ<=#'+DateToStr(Date2)+'#');
tmpQuery.Open;
if tmpQuery.RecordCount>0 then
ske:=tmpQuery.FieldByName('ske').AsCurrency
else
ske:=0;
tmpQuery.Close;
tmpQuery.SQL.Clear;
tmpQuery.SQL.Add('Select Sum(JE) as fke From FKB ');
tmpQuery.SQL.Add('Where ');
tmpQuery.SQL.Add('RQ>=#'+DateToStr(Date1)+'# and RQ<=#'+DateToStr(Date2)+'#');
tmpQuery.Open;
if tmpQuery.RecordCount>0 then
fke:=tmpQuery.FieldByName('fke').AsCurrency
else
fke:=0;
skEdit.Text:=CurrToStr(ske);
fkEdit.Text:=CurrToStr(fke);
jyEdit.Text:=CurrToStr(ske-fke);

end;

datediff('yyyy',出生日期，now）这是年龄
年龄段
iif(datediff('yyyy',出生日期，now)>50,50，0）

自己算吧，分别算出各个年龄段应该的出生年月日，如date1:= date-30*365，那么就是
30岁的人所对应的出生年月，当然这种方法比较傻，也不太精确，但本身用年龄段来统计
就不太精确，比如1972年出生的人今天应该算多少岁？可以是29也可以使30

access支持的函数太少，比较困难
只能自己处理了

datediff是做什么的，请指教！

DATEDIFF函数在ACCESS中的使用
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1353998

[]

多人接受答案了。