Ver Mensaje Individual
  #3  
Antiguo 24-11-2004
LordSigma LordSigma is offline
Miembro
 
Registrado: nov 2004
Posts: 20
Reputación: 0
LordSigma Va por buen camino
Lo que dijo roman es excelente, yo ademas le agregaria lo siguiente :

Código Delphi [-]
function IsValidDate(S:String): Boolean;
var Date: TDate;
     // Donde guardo la configuracion original del sistema.
     ShortDateFormatOriginal: String; 
 
begin
 
  Result := true;
 
  try
 
    // Guardo la configuracion original del sistema.
    ShortDateFormatOriginal := ShortDateFormat;
 
    // Configuro el formato de fecha segun lo quiero validar.
    ShortDateFormat := 'mm/dd/yyyy' 
    // O la configuracion de dia/mes/año que utilizas.
 
    try
      Date := StrToDate(S);
    except
      on EConvertErrordo
        Result := false;
    end;
 
  finally
 
    // Reestablezco la configuracion original del sistema.
    ShortDateFormat := ShortDateFormatOriginal;
 
  end;
 
end;

Perdon pero no se formatear el texto como hizo roman para que aparezca como codigo Delphi, si alguien me puede dar una mano ...
__________________
Sistemas web
www.f5-sistemas.com.ar

Última edición por roman fecha: 24-11-2004 a las 16:30:46.
Responder Con Cita