查询指定月份，指定号之间的数据 ？？？

Question

给定edit1.text 内容为年，edit2.text 内容为月，如给定年为2012，月为01
用ADOQuery 如何查询出当月即1月的记录内容，每月的记录为上月21号到本月20号间的数据，sql如何写参数如何设
Table1
name     riqi
aa       2011-11-22
dd       2011-12-19
bb       2011-12-21
cc       2012-01-20查询结果为
name     riqi
bb       2011-12-21
cc       2012-12-20给定年为2011，月为12月，查询结果name     riqi
aa       2011-11-22
dd       2011-12-19

Answer 1

这论坛人越来越少了，Delphi 给力啊！

Answer 2

uses dateutils;var
 d1,d2:TDateTime;
Begin
if StrToInt(Edit2.Text)=1 then
  d1:=Encodedate(StrToInt(Edit1.Text),12,21);
else
  d1:=Encodedate(StrToInt(Edit1.Text),StrToInt(Edit2.Text)-1,21);
d2:=Encodedate(StrToInt(Edit1.Text),StrToInt(Edit2.Text),20);ADOQuery1.SQL.Text:='select * from t where riqi between '''+DateToStr(d1)+''' and '''+DateToStr(d2)+'''';
自己判断输入值是否是合法,也可以用SQL的datepart函数