delphi程序如何取得日期段

Question

日期1：2005/02/01
  日期2：2005/03/01   
    
  delphi程序如何取得日期1，日期2之间的日期列表？？？   
  我想取得2005/02/01，2005/02/02..........2005/03/01。  
不知道的請不要回復！謝謝！！！

Answer 1

uses DateUtils;
var
i,j:Integer;
begin
  j:=DaysBetween(日期2,日期1);
  for i:=0 to  j do
  begin
    ShowMessage(DateTimeToStr(日期1+i));
  end;

Answer 2

如果不用uses DateUtils;的算法可以幫我寫一下嗎！謝謝

Answer 3

直接date2-date1然后取整就可以了

Answer 4

  n := Round(d2 - d1);
  for i := 0 to n do
    ShowMessage(DateToStr(d1 + i));