Zitat von
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
Öh, was macht dein "mydate:=EncodeDate(y,m,d);" an dieser Stelle? Wozu?
