Código Delphi [-] var Fecha: TDateTime; begin if not TryStrToDate(MaskEdit1.Text, Fecha) then begin ShowMessage('Algo va mal'); end; end;
var Fecha: TDateTime; begin if not TryStrToDate(MaskEdit1.Text, Fecha) then begin ShowMessage('Algo va mal'); end; end;