convertir entero a fecha

[vroa74]

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

[[egostar]]

Empezado por vroa74

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

mi idea es de enterocambiarlo 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

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

[[egostar]]

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

[[felipe88]]

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

[[felipe88]]

Empezado por egostar

Hola

Creo que por ahi tienes un grave error

En tu ejemplo, no hay mucho problema

pero que pasa en el año 2000 ?????

Salud OS

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

[[egostar]]

Empezado por felipe88

No necesariamente, a no ser que necesite el año mil o el tres mil , 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

[[felipe88]]

Empezado por egostar

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

Salud OS

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

[vroa74]

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. ?????????????

[[felipe88]]

Empezado por vroa74

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.