Bei Datum Monat und Jahr ausgeben und den Wert vergleichen

[Union]

Zitat von bundy:

Hallo Delphianer !!


Ich hab irgendwie einen Denkfehler oder absolute Ahnungslosigkeit.

Ich Hab ein Datum in einer Mysql Datenbank.

Bsp:

Datenbank:
Datum-------Upload-------Download-------SummeTransfer
20.3.2005 123233 123132 2324323242
20.3.2005 123123 123423 2343242344

Aufgabe:

Ich bekomme ein Texfile mit Daten die in diese Tabelle eingelesn gehöhrt.
1.Wenn das Datum im Textfile im gleichen Monat ist wie das Datum in der Datenbank dann muss er den Datensatz updaten.
2.Wenn das Datum im Textfile nicht im selben Monat liegt dann muss ich den Datensatz hinzufügen.

meine Frage:
Wie kann ich zwei Datumswerte nach Jahr und Monat vergleichen.

Delphi-Quellcode:

uses dateutils;

procedure TForm1.Button1Click(Sender: TObject);
var
   dtNow, dtThen : TDateTime;
begin
   dtThen := EncodeDate(2005,2,28);
   dtNow  := EncodeDate(2005,3,1);

   // ==> 200502 <> 200503
   if (YearOf(dtNow)*100 + MonthOf(dtNow)) <> (YearOf(dtThen)*100 + MonthOf(dtThen)) then
      ShowMessage('Monat oder Jahr unterschiedlich');

end;