delphi Calendar1 日期加减 简单用法

procedure TForm1.FormCreate(Sender: TObject);

var

BaseDate:string;

BaseDate := YearOf(Calendar1.DateTime).ToString + '-' + MonthOfTheYear(Calendar1.DateTime).ToString + '-' + DayOfTheMonth(Calendar1.DateTime).ToString;

form1.Caption:=BaseDate;

Calendar1.Date := Now;

end;

procedure TForm1.Pie1Click(Sender: TObject);

begin

Calendar1.Date := Calendar1.Date-1;

Edit1.Text:= DateToStr(Calendar1.Date);

end;

procedure TForm1.Pie2Click(Sender: TObject);

begin

if (Calendar1.Date+1)>Now then Exit;

Calendar1.Date := Calendar1.Date+1;

Edit1.Text:= DateToStr(Calendar1.Date);

end;