Datum auf Fehler prüfen - Deutsches Datumsformat

[Wolfgang Mix]

Danke für die Antworten
Das ist mit der Variante von alzaimar jetzt übrig geblieben:

Delphi-Quellcode:

function IsDateOk(d,m,y:word):boolean;
var mydate:TDateTime;
begin
    result:=false;
    mydate:=EncodeDate(y,m,d);
    If TryEncodeDate(y,m,d,myDate) Then result:=true
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  Edit1.Text:=BoolToStr(IsDateOk(32,12,1));
end;

end.

Gruß

Wolfgang