已知两个日期值，如何得到两者之间的所有日期值

Question

例如我有两个日期值：2009-12-29
2010-10-15我需要得到两者之间的所有的日期值，也包括这两者本身。我希望得到的结果是一个string数组，数组里保存的就是所有日期的字符串。即：('2009-12-29','2009-12-30','2009-12-31','2010-01-01','2010-01-02',......,'2010-10-14','2010-10-15')非常感谢！！

Answer 1

var
  DateFrom, DateTo: TDate;
  Count0 : integer;
  Dates : array of string;
begin
  DateFrom := EncodeDate(2009, 12, 29);
  DateTo   := EncodeDate(2010, 10, 15);
  SetLength(Dates, 0);  for Count0 := trunc(DateFrom) to trunc(DateTo) do
  begin
    SetLength(Dates, length(Dates) + 1);
    Dates[high(Dates)] := formatdatetime(Count0, 'yyyy"-"mm"-"dd');
  end;    
end;