Calcular Edad con la fecha de nacimiento de un DateTimePicker

[day_eli]

Buen día usuarios del foro.

Tengo una duda!!----

Como puedo calcular la edad de una persona para arrojarla a un tedit o a un tlabel, partiendo desde la fecha de nacimiento que introduzca el usuario en un
DateTimePicker????

[*Caro*]

Hola revisa el truco 408

http://www.clubdelphi.com/trucos/index.php?id=408


Saludos

[delphi.com.ar]

Aquí tienes un hilo, donde discutimos varias formas para obtener la información: http://www.clubdelphi.com/foros/showthread.php?t=2468

Pero actualmente, con la aparición de la unit DateUtils desde Delphi 6, utilizaría la función YearsBetween.

Saludos!

[day_eli]

Si!! pero lo dificil del tema es que estoy trabajando con un DateTimePicker!!! para aquello de hacerle las cosas mas faciles al usuario.

Si Alguien pudiera proponerme su propia idea el componente que estoy utilizando se lo agradecería!!----Ya he revisado todo lo que se ha publicado en club delphi pero no he conseguido nada que me resuelva precisamente mi problema.

[delphi.com.ar]

La solución ya la tienes solo tienes que saber como utilizar las propiedades del objeto

Código Delphi [-]
ShowMessageFmt('Edad: %d', [YearsBetween(Now, dtFechaNacimiento.Date)]);

[[Caral]]

Hola
Sacado de trucomania:
Lo adapte a un DateTimePicker.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
    function Edad(FechaNacimiento:string):integer;
  var
     iTemp,iTemp2,Nada:word;
     Fecha:TDate;
  begin
    Fecha:=StrToDate(FechaNacimiento);
    DecodeDate(Date,itemp,Nada,Nada);
    DecodeDate(Fecha,itemp2,Nada,Nada);
     if FormatDateTime('mmdd',Date) <
        FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1
                                     else Result:=iTemp-iTemp2;
  end;
begin
  Label1.Caption:=intToStr(Edad(DateToStr(DateTimePicker1.Date)));
end;

Revisalo, necesitas un DateTimePicker y un label.
Saludos