[muli]

Function Edad(FechaNacimiento:string):integer;
var iTemp,iTemp2,Nada:word;
Fecha:TDate;
Begin
Fecha:=StrToDate(FechaNacimiento);
DecodeDate(Now,itemp,Nada,Nada);
DecodeDate(Fecha,itemp2,Nada,Nada);
if FormatDateTime('mmdd',Now) <
FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1
else Result:=iTemp-iTemp2;
End;

Procedure TDatos.ClientesCalcFields(DataSet: TDataSet);
begin
If Utiles.DateOk(Datos.Clientes.FieldByName('Nacimiento').AsString) Then
Begin
Datos.Clientes.FieldByName('Anos').AsFloat:=Edad(Datos.Clientes.FieldByName('Nacimiento').AsString);
End;
end;