Hola.
Se me ocurre que una forma podría ser aprovechar el evento OnGetText de los campos fecha para mostrarlas.
Algo como:
Código Delphi
[-]
...
type
TForm1 = class(TForm)
...
procedure FormCreate(Sender: TObject);
...
private
procedure FechaGetText(Sender: TField; var Text: string; DisplayText: Boolean);
public
end;
...
Interface
const
Fecha2000 = 72687;
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;
procedure TForm1.FormCreate(Sender: TObject);
begin
Tu_DataSet.FieldByName('FECHA_TPS1').OnGetText:= FechaGetText;
Tu_DataSet.FieldByName('FECHA_TPS2').OnGetText:= FechaGetText;
...
end;
procedure TForm1.FechaGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
Text:= DateToStr( TPSToDate(Sender.AsInteger) );
end;
...
Saludos.