Fortlaufende Monat Aufzählung Stoppt im Monat Dezember ???

[Perlsau]

Zitat von sammynrw:

erste tag des monats und der letzte tag des monats ...

aber er rechnet nur bis zum November ... dann kommt die fehler meldung

Hast du überhaupt gelesen, was bisher gepostet wurde? Und wenn ja, hast du daran etwas nicht verstanden? Nicht nur ich habe doch bereits ausführlich erläutert, weshalb ein ungültiges Datum entsteht, wenn du einfach Monate addierst, ohne zu überprüfen, ob da nicht ein Wert > 12 herauskommt. Ich weiß ja nicht, wie es sich dort, wo du lebst, verhält, aber hier wo ich lebe hat ein Jahr genau 12 Monate. Einen Monat mit der Nummer 13 gibt es nicht. Auch keinen mit der Nummer 14 oder 15. Ist der Groschen jetzt gefallen?

Wenn du den ersten und den letzten Tag eines Monats benötigst, ist das einfach: der erste Tag ist immer der 1. Der letzte Tag ist der DaysInAMonth. Diese Funktion hatte ich in 10 Sekunden als die richtige erkannt, nachdem ich in der Suchmaske zur Delphi-Referenz einfach Dateutils eingegeben hatte.

[himitsu]

PS: Dein letztertagdesmonats ist auch noch defekt.
Schau mal genau in deinen IF-Block rein, genau auf den Monat.

(oder verwende einfach die vorhandenen funktionierenden Funktionen der RTL)



Genau deswegen knallt es bereit im Dezember.
Und dann nochmal das bereits genannte Problem, ab der 13. Monatsmiete, da ebenfalls über 12 Monate als Differenz.


Alle Probleme würde man auch gut durch Debuggen finden, indem man sich mal anschaut, was bei den Berechnungen eigentlich raus kommt.

[Helmi]

Hallo,

das hier ist doch viel rumgerechnet um nichts:

Delphi-Quellcode:

function monatsberechnung(monatfeld: Integer): TDate;
var
   jahr, monat, tag: word;
   Tage : Integer;
begin
{...}

   tage := tag;
{...}
    tag := tag - tage+2;

{...}
end;

Tag ist so ja immer 2

[Sir Rufo]

Erster Tag des Monats (Tag 1 vom aktuellen Monat und Jahr)

Delphi-Quellcode:

function GetFirstDateOfMonth( ADate : TDate ) : TDate;
var
  LYear, LMonth, LDay : word;
begin
  DecodeDate( ADate, LYear, LMonth, LDay );
  Result := EncodeDate( LYear, LMonth, 1 );
end;

Letzter Tag des Monats (ein Tag vor dem 1. Tag des nächsten Monats)

Delphi-Quellcode:

function GetLastDateOfMonth( ADate : TDate ) : TDate;
begin
  Result := IncDay( IncMonth( GetFirstDateOfMonth( ADate ), 1 ), -1 );
end;