Letzter Tag des Monats bestimmen

[b1zZ]

Also ich muss Reinhard schon bisschen Recht geben, wenn man sich Marabu's Bsp. anschaut ist es nicht gerade schwer davon abzuleiten
wie man an das "ERSTE" TDateTime des Monats kommt. (Sieht man ja an meinem Beitrag weiter oben auch)

Zitat:

Zitat von marabu

Delphi-Quellcode:

function Ultimo(year, month: Word): TDate;
begin
  Result := EncodeDate(year, month, {DateUtils.}DaysInAMonth(year, month));
end;

Als Verteidigung muss ich auch hinzufügen, dass ich ab und zu auch nicht den Wald vor lauter Bäume seh ;)

[rwachtel]

Gerade in Deinem Beispiel muss ein vorhandener TDateTime-Wert erst dekodiert und dann wieder enkodiert werden.

Also warum denn immer das Rad neu erfinden? :gruebel: Alle erforderlichen Funktionen sind doch in aktuellen Delphi-Versionen enthalten.

[b1zZ]

Mein hat sich auf das von Marabu bezogen, denn nach der Aussage hab ich angenommen, dass Holger die Version für den erhalt des letzten Tages gewählt hat und ich ihm einfach damit aufzeigen wollte das er im Prinzip nicht drüber nachgedacht hat, was er weiterfragt.
Sollte ich das jetzt falsch verstanden haben, tut es mir leid und ich nehme alles zurück.

[HolgerCW]

Du hast Recht, ich hatte nicht weiter nachgedacht.

Ist natürlich logisch, das Jeder Monat bei 1 anfängt.

Gruss und Dank

Holger