Tema: Convertir YYYYMMDD a date
Ver Mensaje Individual
  #5  
Antiguo 08-01-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola, también puedes utilizar las funciones RightStr, MidStr, LeftStr de la Unit StrUtils.

Código Delphi [-]
function TextoAFecha(S:String):TDate;
var
x:String;
begin
  x := RightStr(Edit1.Text,2)+'/'+
        MidStr(Edit1.Text, 5, 2)+'/'+
        LeftStr(Edit1.Text,4);
 
  Result:=StrToDate(x);
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita