第一个日期循环加1就可以了.直到和第二个日期相等如:unit MainUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) dtp1: TDateTimePicker; dtp2: TDateTimePicker; Label1: TLabel; Label2: TLabel; Memo1: TMemo; btnINC: TButton; procedure btnINCClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnINCClick(Sender: TObject);var dt : TDateTime;begin dt := dtp1.DateTime; while dt <= dtp2.Date do begin Memo1.Lines.Add(FormatDateTime('YYYY-MM-DD',dt)); dt := dt + 1; end;end;end.
