加单元DateUtils,procedure TForm1.btn1Click(Sender: TObject);begin lbl1.Caption := DateToStr(date);end;procedure TForm1.btn2Click(Sender: TObject);begin lbl1.Caption :=DateToStr(IncDay(StrToDate(lbl1.Caption),1))end;