delphi 月份递增的循环查询

开始日期：a （datetimepicker1）
结束日期：b （datetimepicker2）
然后 用循环 开始日期 到结束日期 
select count(*) from tabname where [日期字段]=当前日期的月份
求个详细方法的代码。

追问：只显示了最后一行的数目，前几个月的都没有显示。

答案：加单元dateutils
procedure TForm1.btn1Click(Sender: TObject);
var
  tbegin, tend: TDate;
  vstr, vSQL: String;
begin
  tbegin := StrToDate('2011-5-1');   //datetimepicker1.date
  tend := StrToDate('2011-8-10');   //datetimepicker2.date
  while tbegin<= tend do
  begin
    vstr := FormatDateTime('yyyymm', tbegin);卡 //想要什么日期格式可自己扩展
    vsql := select count(*) from tabname where [日期字段]='''+vsr+''''  //SQL语句 可以自己扩展
    tbegin := Incmonth(tbegin, 1);
  end;

上一个：在Delphi的Image控件上画移动的图片
下一个：宝兰公司的开发工具delphi和c++builder现在的年代还流行吗？