Como Agregar una Columna a un DBgrid

[ecfisa]

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.