Datum auf Fehler prüfen - Deutsches Datumsformat

[Nersgatt]

Warum nicht einfach so:

Delphi-Quellcode:

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