判断两个日期的间隔

var
dt:TDate;
ss:String;
begin
DM.Free;

ss:='2007-06';
while (ss<>'2006-03') do
begin
    ///do with;

    dt:=ss+'-01';
    dt:=dt-1;
    ss:=FormatDateTime('yyyy-mm',dt);
end;

end;