Eine neues Datum generieren???

[romber]

Hallo!

Ich habe z.B. ein Datum 31.12.2005
Ich möchte zu diesem Datum z.B. drei Monate addieren, und zwar so, dass es "kalendarisch" richtig ist. Mit FormatDateTime-function muss das irgendwie gehen, da muss glaube ich ein Parameter her. Wie ist der Parameter?

Danke!

[marabu]

Hallo romber,

rechnen kannst du nur mit Zeiteinheiten. Du erkennst diese daran, dass sie als Vielfache von Sekunden ausgedrückt werden können. Monat und Jahr zählen nicht dazu. Um ein Datum um 3 Monate zu "erhöhen" musst du zusätzliche Regeln definieren. Hier ein paar Kandidaten:

• Beibehalten des Tages im Monat und Reduzieren des Tages bei Überlauf
• Monat pauschal auf 30 Tage setzen
• Rechnen mit Quartalsabständen

Weitere Regeln sind denkbar - hast du dich schon entschieden? Rechnen kannst du dann mit DecodeDate() und EncodeDate().

Grüße vom marabu

[ManuMF]

Delphi-Quellcode:

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;

Dürfte das sein, was du brauchst.

Beispiel:

Delphi-Quellcode:

NeuesDatum := IncMonth(AltesDatum, 3);

Gruß,
ManuMF

[mojo777]

*klugscheiß-mode-on*
und incDay(date:TDateTime; anz:Integer);
*klugscheiß-mode-off*
passt zwar nciht ganz hier rein, aber vll. brauchst du das auch :-D