Heutige mit unabhängigem Datum vergleichen

[Sharky]

Einen Datumsvergleich über Strings?
Da ist der Weg von Tyral Y. doch viel sauberer:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  rtag,
  rmonat,
  rjahr   : Word;
  tag,
  monat,
  jahr    : Word;
  referenzdatum : TDate;
begin
  referenzdatum := EncodeDate(2008,02,04); // Nur als Beispiel damit ich ein Datum habe
  DecodeDate (referenzdatum,rjahr,rmonat,rtag);  // Und wieder aufspalten
  DecodeDate (date,jahr,monat,tag);  // Heute 
  if (rmonat = monat) AND (rtag = tag) then
  begin
    ShowMessage ('blubb');
  end;
end;