function DatumPlusMinusTage(s: string; Tage: integer): TDate; 
begin 
  result := strtodate(s) + Tage; 
end; 
 
function DatumPlusMinusMonate(s: string; Monate: integer): TDate; 
begin 
  result := incmonth(strtodate(s), Monate); 
end; 
 
function DatumPlusMinusWochen(s: string; Wochen: integer): TDate; 
begin 
  result := strtodate(s) + 7 * Wochen; 
end; 
 
function DatumPlusMinusJahre(s: string; Jahre: integer): TDate; 
begin 
  result := incmonth(strtodate(s), Jahre * 12); 
end; 
 
 
// Beispiele 
 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
  showmessage(datetostr(datumplusminustage('29.02.00', 3))); // 03.03.2000 
end; 
 
procedure TForm2.Button2Click(Sender: TObject); 
begin 
  showmessage(datetostr(datumplusminusmonate('29.02.00', 3))); // 29.05.2000 
end; 
 
procedure TForm2.Button3Click(Sender: TObject); 
begin 
  showmessage(datetostr(datumplusminusjahre('29.02.00', 3))); // 28.02.2003 
end; 
 
procedure TForm2.Button4Click(Sender: TObject); 
begin 
 showmessage(datetostr(datumplusminuswochen('29.02.00', 3))); // 21.03.2003 
end; 
 
procedure TForm2.Button5Click(Sender: TObject); 
begin 
  showmessage(datetostr(datumplusminustage('29.02.00', -59))); // 01.01.2000 
end;