¿Cómo validar fechas?

[[gatosoft]]

Si utilizas un componente para captura de fechas, como un DateTimePicker, éste te ayuda con la validación... pero si estas permitiendo que el usuario digite libremente debes esperar cualquier cosa...

La forma facil que veo es:

Código Delphi [-]
 Try
  {Ojo: afecta la variable global ShortDateFormat para toda la aplicación}   
   ShortDateFormat:= 'mm/dd/yyyy';     
   StrToDate(Edit1.Text);
   ShowMessage('Fecha OK');
 except
   ShowMessage('Fecha no valida');
 end;

La función StrToDate acepta un segundo parametro TFormatSettings que es un registro que contiene entre otras variables ShortDateFormat... asi que puedes crear localmente un registro de este tipo configurarlo a tu antojo (sin afectar las variables globales) y enviarl como parametro de la función...

bye