Formato de fecha correcto
 

Buenos dias a tod@s!!

Trabajo con Delphi 7 y MS Access.

Estoy tratando de comprobar que la fecha que introduce el usuario por teclado es del formato adecuado, pero no lo consigo.
Este es el código que tengo el el evento onExit:

Código Delphi [-]
procedure TFInsertarCLientes.DBENacimientoExit(Sender: TObject);
begin
  if DBENacimiento.Text<>'' then
  begin
      try
          strToDate(DBENacimiento.Text);
      except
           ShowMessage('Formato de fecha incorrecto');
      end;
  end;
end;

Tambien tengo activada la opcion Stop on Delphi Excepcion del menu de Debugger Options. ¿Qué hago mal?

Un saludo y gracias a tod@s.

P.D..- ¿¿Alguna forma de controlar que en un Edit se meta un Nif correcto sin usar máscaras??

Hola,

Parece que la función "StrToDate" levanta una excepción de tipo "EConvertError" en caso de que hubiera algún problema para convertir la cadena de marras al tipo "TDateTime". Bueno. No sé si el evento "OnExit" es el mejor para realizar la validación, pero, en todo caso, puede que te interese la función "TryStrToDate", la cual devolverá "false" si hay algún problema en la conversión de la cadena a formato "TDateTime": no se producirá excepción alguna en caso de error en la conversión. No sé si he dicho algo que merezca la pena o qué. :cool:

Gracias David!!

Lo probarié a ver que tal.

Sería mejor usar un control que te permita solo capturar fechas.

Sugerencia rápida: DBDateTimePicker