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);