convertir entero a fecha
 

tengo en una base de datos un campo de 6 numeros el cual es una fecha
aammdd. fecha =750121
y tengo que obligatoriamente comvertirlo en un campo fecha

mi idea es de entero cambiarlo a string
al string darle forma aa/mm/dd por que solo cuento 2 digitos para el año.
y de string pasarlo a fecha y subirlo a un campo de tipo date.
mas tengo problemas al pasarlo de var a data

alguien puede ayudarme

Código Delphi [-]
var
    i : integer;
    d : tDateTime;
    v,auxv : string;
    j: Integer;
begin
auxv :='';
i := Mytable1.FieldByName('FECHA_NACI_CLAVE_ELECTORAL').AsInteger;
d := Mytable1.FieldByName('Fecha_nac').AsDateTime;
  v:= inttostr(i);
  auxv := auxv + v[1];
  auxv := auxv + v[2];
  auxv := auxv + '/';
  auxv := auxv + v[3];
  auxv := auxv + v[4];
  auxv := auxv + '/';
  auxv := auxv + v[5];
  auxv := auxv + v[6];
   v:= auxv;

 d := strtodate(v);
Edit1.Text := inttostr(i);
Edit2.Text := datetostr(d);

Hola,

El tipo de dato en la base es ENTERO?????, me parece que no, me imagino que es un string de 8 posiciones, ademas de que el formato que pones es de 6 ??????

Coloca el código que estas usando para saber exactamente cual es tu problema.

Salud OS

Hola

Creo que por ahi tienes un grave error

En tu ejemplo, no hay mucho problema

pero que pasa en el año 2000 ????? un entero no te pondria 001212

Salud OS

Hola, añadiendo a lo del string podrias usar la funcion Copy o alguna que maneje los caracteres.

No necesariamente, a no ser que necesite el año mil o el tres mil :rolleyes:, seria como 00 = 2000 de ahi en adelante solo seria 01 = 2001 etc...

F5 amigo, F5, para que veas el porque de mi cuestionamiento :)

Salud OS

:D:D... si tienes razon, entonces tendria que cambiar el formato por dd/mm/aa.

Como cambio de aa/mm/dd a dd/mm/aa ???
cuan es el codigo para cambiar el formato o cual es el codigo para cambiar de un formato a otro. ?????????????

Hola, como preguntaba egostar, ¿el campo es entero? porque no creo que funcione con el ejemplo que el da... si es string, si será más fácil, no recuerdo bien pero creo que el FormatDateTime puede ayudarte a cambiar el formato por dd/mm/aa.