Delphi的日期问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  Date1,Date2:TDate;
begin
  Date2 := StrToDate('2002-10-19');
  Date1 := Date2+1;
  ShowMessage(DateToStr(Date1));
end;

Answer 1

IncYear(TDate 類型,加幾年) 例: IncYear(date,1);函數在 DateUtils  單元中

Answer 2

var
    year,month,day:word;
    
    DecodeDate(date2,year,month,day);
    Date1:=EncodeDate(year+1,month,day);

Answer 3

其实TDateTime类型是个double类型。
整数部分是从1899/12/30开始的天数你只要加减365(366闰年)也能实现年的增减，
当然了，楼上的办法最完美了