Datum plus 3 Jahre

[CMelcher]

Liebe SchiLDler,

welchen Befehl kann ich nutzen, so dass z. B. das Gültigkeitsdatum das Druckdatum plus 3 Jahre ist?

Vielen Dank für eure Hilfe.

[wschrewe]

welchen Befehl kann ich nutzen, so dass z. B. das Gültigkeitsdatum das Druckdatum plus 3 Jahre ist?

Z.B. in einer geeigneten Ereignisbehandlung (z.B. ReportBeforePrint), so etwas:

Code: Alles auswählen

var
  Year, Month, Day : integer;
  lGueltigkeitsDatum : DateTime;
begin
  DecodeDate(CurrentDate, Year, Month, Day);
  Year:=Year + 3;
  lGueltigkeitsDatum:=EncodeDate(Year, Month, Day);
  // Ab hier das Datum weiterverarbeiten, z.B. so:
  LabelXYZ.Text:=FormatDateTime('"Gültig bis zum "dd.mm yyyy',lGueltigkeitsDatum);
  
end;

[Kurosinski]

Ein
text:= 'Gültigkeit' + FormatDateTime('" bis "dd.mm.yyyy', CurrentDate + 1095);

sollte auch funktionieren.
Sind allerdings nur 3*365 Tage.

[CMelcher]

Vielen Dank für die schnellen Hilfen. Die zweite Variante hat funktioniert. Das mit der Variable hat bei mir nicht funktioniert bzw. es wurde dann nichts angezeigt.