Datumsberechnung

[Roland Cueni]

Eigentlich ein einfaches Problem, aber...

Der Kunde bekommt eine Zahlungsfrist von 30 Tagen.
Wie kann ich aber, unter Berücksichtigung der unterschiedlichen Anzahl Tage der einzelnen Monate, das korrekte Zahlungsziel ermitteln?
(Es sollen wirklich 30 Tage dazwischen sein)

Besten Dank im voraus

Roland

[Sigmar Rossmann]

Hallo Roland

Der ganzzahlige Teil eines TDateTime-Wertes entspricht der Anzahl der Tage d.h. du brauchst nur ein Start-Datum und addierst 30 tage hinzu und du hast das Ende-Datum

[Mario.Noack]

In Delphi 6 ist die Unit DateUtils dabei. Diese enthält eine Unmenge von Hilfsfunktionen für diese Fälle.<p>
Schöne Grüße, Mario Noac

[Roland Cueni]

Besten Dank für die prompte Reaktion!<BR>
<BR>
Leider besitze ich noch die Vers. 5 und kann daher nicht auf die Unit DateUtils zurückgreifen.
<BR>
Aber manchmal sieht man vor lauter Bäumen den Wald nicht...
<BR>
Die Antwort von Sigmar hat mich auf folgenden Lösungsansatz gebracht, der wie es scheint korrekt funktioniert:
<PRE>
Var
Present : TDateTime;
Year, Month, Day : Word;
text : string;
<BR>
Begin
Present := now;
Present := present + 30;
DecodeDate(Present, Year, Month, Day);
text := IntToStr(day) + ' ' + IntToStr(month);
ShowMessage(text);
End;
</PRE>
An dieser Stelle nochmals meinen besten Dank! :-)

Schöne Grüsse

Rolan

[Roland Cueni]

Besten Dank für die prompte Reaktion <br>
Leider besitze ich noch die Vers. 5 und kann daher nicht auf die Unit DateUtils zurückgreifen.<br>
Aber manchmal sieht man vor lauter Bäumen den Wald nicht...<br>
Die Antwort von Sigmar hat mich auf folgende Lösung gebracht:<br>
<PRE>
Var
Present : TDateTime;
Year, Month, Day : Word;
Text : String;

Begin
Present := Now;
Present := Present + 30;
DecodeDate(Present, Year, Mont, Day);
Text := IntToStr(Day) + ' ' + IntToStr(Month);
ShowMessage(Text);
End;
<\PRE>

An dieser Stell nochmals meinen besten Dank! :-)

Gruss
Rolan