[webmasterplc]

Buenas estoy tratando de calcular la edad de una persona y tengo esta función que publico Mamu

Código Delphi [-]
function CalculaEdadCompleta(Fecha:TDateTime):String;
var A, AA, M, MM, D, DD: Word;
  Anio, Mes, Dia: double;
begin
  DecodeDate(Fecha, A, M, D);
  DecodeDate(Date, AA, MM, DD);
  Anio := Int(AA - A);
  if( M <= MM ) then
     Mes := MM - M
  else
  begin
    Mes := MM+12-M;
    Anio := Anio -1;
  end;
  if( D <= DD ) then
    Dia := DD - D
  else
  begin
    Dia:=DD+MonthDays[IsLeapYear(AA),MM]-D;
    Mes := Mes -1;
  end;
if Mes < 0 then
  begin
    Anio := Anio - 1;
    Mes := 12 + Mes;
  end;
  Result := Format('Años: %.0f, Meses: %.0f, Dias: %.0f', [Anio, Mes, Dia]);

el llamado

Código Delphi [-]
etedad.Caption :=CalculaEdadCompleta(fnacimiento);

pero me coloca la edad con días meses y me gustaría en el caption capturarlo cada dato en una variable

Código Delphi [-]
etanios.caption:=CalculaEdadCompleta(fnacimiento)
etmeses.caption:=CalculaEdadCompleta(fnacimiento)
etdias.caption:=CalculaEdadCompleta(fnacimiento)