Letzter Tag des Monats bestimmen

[HolgerCW]

Hallo zusammen,

ich habe ein Datum, z.B. den 25.02.2008.

Wie kann ich nun den letzten Tag dieses Monats bestimmen ?

Gruss

Holger

[eddy]

Hallo Holger,

ich nutze das:

Delphi-Quellcode:

function LstDayOfMonth(dt : TDateTime) : TDateTime;
var
  DayTable : PDayTable;     // siehe SysUtils
begin
  DecodeDate(dt, jj, mm, tt);
  DayTable := @MonthDays[IsLeapYear(jj)];    // schaltjahrabhängig Zuweisung der Tabelle
  tt := DayTable^[mm];
  Result := EncodeDate(jj, mm, tt);
end;

mfg
eddy

[marabu]

Hallo,

hier noch eine Alternative:

Delphi-Quellcode:

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

Grüße vom marabu

[HolgerCW]

Das funktioniert wunderbar.

Hast Du vielleicht auch die Funktion für den ersten Tag im Monat ?

Gruss

Holger

[b1zZ]

Zitat:

Zitat von HolgerCW

Das funktioniert wunderbar.

Hast Du vielleicht auch die Funktion für den ersten Tag im Monat ?

Gruss

Holger

Zitat:

Zitat von marabu

Delphi-Quellcode:

function Ultimo(year, month: Word): TDate;
begin
  Result := EncodeDate(year, month, 1);
end;

Oder möchtest du den 1ten Wochentag des Monats haben?

[HolgerCW]

Vielen Dank

Gruss

Holger

[negaH]

Bischen nachdenken hätte dir auch eine andere Lösng gebracht.

Welcher Tag kommt nach dem letzten Tag eines Monats ?
Wenn man von einem TDateTime -1 abzieht so hat man den vorherigen Tag als Datum.

Gruß Hagen

[rwachtel]

Nur mal so in die Runde geworfen:

Es gibt auch noch die Unit DateUtils.pas, in der neben StartOfTheMonth und EndOfTheMonth noch viele weitere ISO 8601 entsprechende Datumsfunktionen zu finden sind.

...und was es da nicht gibt, findet man in der JCL...

[Reinhard Kern]

Zitat:

Zitat von rwachtel

Nur mal so in die Runde geworfen:

Es gibt auch noch die Unit DateUtils.pas, in der neben StartOfTheMonth und EndOfTheMonth noch viele weitere ISO 8601 entsprechende Datumsfunktionen zu finden sind.

...und was es da nicht gibt, findet man in der JCL...

Warum immer alles so kompliziert wie möglich lösen? Bei mir haben bisher alle Monate mit dem 1. angefangen. Sogar ganz ohne Computer.

Gruss Reinhard

[rwachtel]

..und Du hast jetzt auch den entsprechenden TDateTime-Wert für jeden Ersten zur Hand? :mrgreen:

[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