Código Delphi [-] procedure TForm1.MaskEdit1Exit(Sender: TObject); var MiFecha:Tdate; begin Try MiFecha:=StrToDate(MaskEdit1.Text); Except ShowMessage('Formato de Fecha incorrecto'); end; end;
procedure TForm1.MaskEdit1Exit(Sender: TObject); var MiFecha:Tdate; begin Try MiFecha:=StrToDate(MaskEdit1.Text); Except ShowMessage('Formato de Fecha incorrecto'); end; end;