Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Letze Monate auflisten

   
    by himitsu, 23. Apr 2009
  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
  
  Var D, D2: Integer;
  
  D2 := Trunc(Now - 120);
  D2 := D2 - DayOfTheMonth(D2) + 1;
  
  For D := D2 to Trunc(Now)...