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 von HolgerCW:

Das funktioniert wunderbar.

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

Gruss

Holger

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 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?