Procedure tfrmfunc.table4calcfields(dataset:string

[Bravo]

procedure TFrmFunc.Table4CalcFields(DataSet: TDataSet);

begin

Table4Idade.Value:= Int((Date - Table4DataNasc.Value)/365.25);

Table4Rec1.Value:= Table4.RecNo;

Table4Total1.Value:= Table4.RecordCount;

end;

Colegas, com a procedure acima calculo a idade atraves da data de nascimento, como incluo nesse resultado a palavra ''anos''? ex: 50 anos.

grato

Bravo

[No Suffer]

Kro Amigo,

Utilize a funcao FormatText  

qualquer dúvida entre em contato

[email protected]