Datum -1 Jahr

[Peeters]

Hallo,

ich möchte gerne das aktuellen Datum (date) -1 Jahr zurück setzen, wie setze ich das um.

Delphi-Quellcode:

var vl_datum : TDateTimePicker;

  vl_datum := TDateTimePicker.Create(FormHaupt);
  vl_datum.Date := StrToDate('14.11.2006');  // hier würde ich gerne vl_datum mitteilen, dass es 1 Jahr abziehen soll.
  vl_s2 := FormatDateTime('dd.mm.yyyy, dddd', vl_datum.Date);

  vl_datum.Free;

Vielen Dank.

[generic]

folgende lösungen bieten sich für dein problem an.
- du benutzt die dp suche
- du benutzt die unit dateutils mit der funktion incyear, das kann auch abziehen

[Peeters]

Danke für die Blumen :)