delphi在ACCESS数据库里的生日查询的实现

在ADOQuery的属性SQL里写下面的SQL语言
select * from XX表
where format(生日,'mm-dd')=:shengri
说明:上面的shengri可以写成任何东东,呵呵

在delphi里写下面的代码
ADOQuery.Parameters[0].Value:=formatdatetime('mm-dd',date);