La Web del Programador: Comunidad de Programadores
 
    Pregunta:  10622 - VALIDACION DE FECHAS
Autor:  Claudia Garcia
Hola,

No se como validar una fecha que es introducida por el usuario desde un campo tipo texto. Lo que pretendo es que el sistema no me mande un mensaje de error cuando la fecha no sea escrita correctamente, esto es, en el momento de querer guardarla en la tabla correspondiente.

De antemano, gracias por su ayuda.

  Respuesta:  omar hamden
Hola...creo que lo que quieres hacer se puede resolver mucho mas facil usando otro objeto...el (TDateTimePicker) aquĆ­ podras posicionar la fecha y hasta la hora (en checked), sin probabilidad de error.

Hasta Luego..!!!

  Respuesta:  qdevelop2000 Professional Solutions
Suponiendo que el campo es un campo de nombre "Fecha" de la tabla de nombre "Table", pon esto en el onSetText del campo:

procedure TForm.TableFechaSetText(Sender: TField;
const Text: String);
var
fecha:TDateTime;
begin
if not (Table.State in [dsInsert, dsEdit]) then exit;
try
Sender.AsString := Text;
except
ShowMessage('Error en formato del campo fecha');
Abort;
end;
end;

Para cualquier duda utiliza nuestro email...