怎么计算出两个日期段之间的所有日期，分不多，不好意思

Question

比如我想知道2009-2-3 到 2010-3-4号之间的所以日期，我都想一一获取，有什么好办法

Answer 1

DataS:=StrToDataTime('2009-02-03');
reeat
  DataS:=DataS+1;
  DateTimetoString(S,'yymmddhhnnss',DataS);
  List1.add(S);
until DataS>=StrToDataTime('2010-03-04');

Answer 2

上面一句有误，改为：
DataS:=StrToDataTime('2009-02-03');
reeat
  DataS:=DataS+1;
  DateTimetoString(S,'yyyy-mm-dd',DataS);
  List1.add(S);
until DataS>=StrToDataTime('2010-03-04');

Answer 3

uses
  dateutils;var
  sDate,eDate: TDateTime;
begin
  sDate:=strtodateTime('2009-2-3');
  eDate:=strtodateTime('2010-3-4');
  repeat
    sDate:= incday(sDate);
    memo1.Lines.Add(dateTimetostr(sDate));
  until sDate>=eDate;
end;