Letze Monate auflisten

[himitsu]

du brauchst doch einfach nur die TDateTime-Variable wieder 120-mal um 1 erhöhen und jeweils das dann mit DecodeDate umrechnen. dann bekommst immer die richtigen Tage/Monate/Jahre raus undm ußt dich nichtmal um die Tageszahl-pro-Monat kümmern.

PS: um mit 'nem Monatsanfang anzufangen

Delphi-Quellcode:

Var D, D2: Integer;

D2 := Trunc(Now - 120);
D2 := D2 - DayOfTheMonth(D2) + 1;

For D := D2 to Trunc(Now) do
  ... // DecodeDate(D, ...);