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;
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;
转载于:https://www.cnblogs.com/martian6125/archive/2008/04/29/9631444.html