Ver Mensaje Individual
  #1  
Antiguo 05-09-2008
Avatar de vroa74
vroa74 vroa74 is offline
Miembro
 
Registrado: jul 2006
Posts: 255
Reputación: 20
vroa74 Va por buen camino
Question 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);

Última edición por vroa74 fecha: 05-09-2008 a las 22:29:07.
Responder Con Cita