AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Letze Monate auflisten

Ein Thema von renekr · begonnen am 23. Apr 2009 · letzter Beitrag vom 23. Apr 2009
Antwort Antwort
renekr

Registriert seit: 27. Feb 2005
Ort: Karlsbad
534 Beiträge
 
Delphi 2007 Enterprise
 
#1

Letze Monate auflisten

  Alt 23. Apr 2009, 12:03
Hallo,
Ich stehe gerade auf dem Schlauch.
Ich will von heute an die letzten 120 Tage zurück jeweils die Monate ausgeben mit Jahr.
Also auch wenn es ein Jahr zurück geht.

Wie kann ich das am einfachsten realisieren ?

Danke.
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Letze Monate auflisten

  Alt 23. Apr 2009, 12:10
Now - 120 gibt das Datum vor 120 Tagen
DecodeDate zerlegt das Datum in Tag/Monat/Jahr

Der Rest dazwischen sollte mit den Daten berechenbar sein.
  Mit Zitat antworten Zitat
renekr

Registriert seit: 27. Feb 2005
Ort: Karlsbad
534 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: Letze Monate auflisten

  Alt 23. Apr 2009, 13:04
Hi,
jo das hab i schon aber die Month between gibts ja aber die Monate dann aufzählen mit Jahres umbruch !

Danke
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Letze Monate auflisten

  Alt 23. Apr 2009, 13:21
Ok, DateUtils hab' ich bei D5 noch nicht dabei...

Erster Monat/Jahr und aktueller Monat Jahr sollte (mit meinem Beispiel oder sonstigen Funktionen) gegeben sein.

z.B. 11 2008 und 01 2009

Schleife: Monat erhöhen, wenn Monat 13 dann Monat 01 und Jahr +1
Schleifenabbruch: Monat Jahr > aktuell

Delphi-Quellcode:
// decodeDate mit Now
MonatAktuell := Month;
JahrAktuell := Year;
// decodeDate mit Now - 120
Monat := Month; // Zuweisung natürlich unnötig, da man direkt
Jahr := Year; // mit Month/Year als Variablen arbeiten kann

MonatsListe.Clear; // z.B. eine TStringList

while (MonatAktuell <= Monat) and (JahrAktuell <= Jahr) do
begin
  MonatsListe.Add( IntToStr(Monat) +'.'+ IntToStr(Jahr));

  Monat := Monat +1;
  if Monat >= 13 then
  begin
    Monat := 1;
    Jahr := Jahr +1;
  end;
end;
Kann es hier nicht Testen, ist vieleicht auch umständlich? Aber sollte auf die Art funktionieren.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.596 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: Letze Monate auflisten

  Alt 23. Apr 2009, 13:23
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, ...);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#6

Re: Letze Monate auflisten

  Alt 23. Apr 2009, 14:52
Hallo,

vielleicht kann man es so angehen:

Delphi-Quellcode:
var
  DT, EndDate : TDateTime;
begin
  DT := Now;
  EndDate := DT - 120;

  Memo.Clear;
  while (DT >= EndDate) do
    begin
      Memo.Lines.Add (FormatDateTime('mmmm yyyy', DT));
      DT := IncMonth(DT, -1);
    end;
end;
Gruß Hawkeye
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Letze Monate auflisten

  Alt 23. Apr 2009, 16:52
Will er jetzt alle 120 Tage oder nur die Monate, die innerhalb der 120 Tage liegen. Wie letzteres hab ich es verstanden, ersteres sind alle anderen Beispiele.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 04:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf