Seite 1 von 1

Datum plus 3 Jahre

Verfasst: Mittwoch 3. Juli 2024, 12:12
von 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.

Re: Datum plus 3 Jahre

Verfasst: Mittwoch 3. Juli 2024, 13:21
von wschrewe
CMelcher hat geschrieben: Mittwoch 3. Juli 2024, 12:12welchen 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;

Re: Datum plus 3 Jahre

Verfasst: Mittwoch 3. Juli 2024, 15:59
von Kurosinski
Ein
text:= 'Gültigkeit' + FormatDateTime('" bis "dd.mm.yyyy', CurrentDate + 1095);

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

Re: Datum plus 3 Jahre

Verfasst: Mittwoch 3. Juli 2024, 22:42
von 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.