Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Datum auslesen und intern auswerten

  Alt 7. Sep 2004, 11:30
Hallo Wissende!

Leider fehlt mir mal wieder eine richtig gute Idee, wie ich eine kleine einfache Aufgabe umsetzen kann. Ich habe eine kleine DB, in der sich ein Feld für Datumsangaben befindet. Dieses Feld wird so befüllt: tt.mm.jj! Nun möchte ich eine kleine statistische Auswertung machen indem ich die Tage eines jeden Monats zusammenfasse. Ich will also die Datensätze jedes Monats mit einer bestimmten Routine durchlaufen, weiss aber einfach nicht, wie ich da ansetzen soll.

Soweit bin ich derzeit.

Delphi-Quellcode:
for i:=0 to Table1.RecordCount-1 do
  begin
    akt_date:= Table1.FieldValues['date'] as DATE_SHORTDATE
    // und hier dann die auswertung das datums
    // ich will prüfen, von ewlchem monat der eintrag ist und einfach ein feld names "betrag"
    // addieren
    // ungefähr so:
    if akt_date = akt_Monat then
      begin
        akt_betrag:=Table1.FieldbyName('betrag') as integer;
        akt_Summe:=akt_summe + akt_betrag
  end;
Ich weiss halt nicht, wie ich am einfachsten den Monat aus dem Jahr herauslöse, wobei mir der Monat nur solange was nützt, wie das Jahr gleich bleibt. Da ich aber diese Daten archivarisch verwalten muss, müsste ich also Monat und Jahr schon richtig prüfen.

NUR WIE?
Danke
Tom
  Mit Zitat antworten Zitat