Hola.
tengo un debgrid con los campos
Cita:
No. Fecha Serie
102 | 74751 | R
107 | 74749 | J
|
etc.. esto es tomado de una tabla TPS por ODBC y requiero reprecentar la fecha en un formato que el usuario comprenda. Para lo cual realice dos funciones:
Código:
const
Fecha2000 = 72687;
implementation
//Funcion que recibe una entero del TPS y la convierte en formato de Fecha
function TpsToDate(FechaTPS:Integer): TDateTime;
var dtFecha2000 : TDateTime;
Dias : Integer;
begin
FechaTps:= 74749;
Dias:= FechaTPS-Fecha2000;
dtFecha2000 := EncodeDate(2000, 1, 1);
dtFecha2000 := dtFecha2000 + Dias;
Result := dtFecha2000;
end;
//Funcion que recibe una fecha y la convierte en entero para TPS.
function DateToTPS(FechaParaTPS:TDateTime): Integer;
var dtFecha2000 : TDateTime;
FechaTPS,Dias : Integer;
begin
dtFecha2000 := EncodeDate(2000, 1, 1);
Dias := DaysBetween(FechaParaTPS, dtFecha2000);
FechaTPS:= Fecha2000 + Dias;
Result := FechaTPS;
end;
Mi problema es cómo convertir el valor del campo FECHA y asignarlo al DBgrid
Algo como:
Código:
Dbgrid1.DataSource.DataSet.FieldValues['FECHA']:=TPStoDate(Dbgrid1.DataSource.DataSet.FieldByName('FECHA').AsInteger);
Para que me actualice todos los campos FECHA en el Dbgrid, o ponerlo como otra columna, solo que no encuentro la forma de hacerlo
De antemano gracias