Convertir YYYYMMDD a date

[marilinspi]

Hola a todos necesito convertir un string YYYYMMDD a date, alguna pista.
Gracias desde ya.

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
dFecha:TDate;
begin
TextoAFecha(Edit1.Text)
end;

function TextoAFecha(S:String):TDate;
var
x:String;
begin
x:=Copy(s,7,2)+'/'+Copy(s,5,2)+'/'+copy(s,1,4);
//Esto es para ver el funcionamiento, bórralo.
ShowMessage(x);

Result:=StrToDate(x);
end;

Un Saludo.

[[white_zombie]]

Hola, para convertir strings a date tienes StrToDate, mira la ayuda de delphi sobre esta función, cambiando el formato de la fecha en TFormatSettings para acomodarlo a tu forma de representación creo que te servira.

Un saludo.

[[white_zombie]]

Marcoszorrilla se me ha adelantado y se ha currado la respuesta mucho mas que yo, espero que te resuelva el problema.

Un Saludo

[*Caro*]

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

[Neftali [Germán.Estévez]]

Muy parecido a lo que ya te comentan (Caro o Román), también puedes utilizar las funciones:

Código Delphi [-]
function EncodeDate(Year, Month, Day: Word): TDateTime;
function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;

Por ejemplo así:

Código Delphi [-]
  d := EncodeDate(StrToInt(copy(s,1,4)), StrToInt(Copy(s,5,2)), StrToInt(Copy(s,7,2)));

Con la ventaja de que si la fecha es incorrecta te lo detectará (2008/13/13).

[marilinspi]

Hola, muchas gracias por la pronta respuesta. Lo resolvi con la opcion de marcoszorrilla. Gracias hasta la proxima