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

[gabrielkc]

Empezado por Caral

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;

a caray que cosa mas rara la funcion recibe un parámetro de tipo strig por
lo cual conviertes un TDate a un string pero como necesitas un TDate,
en la primera linea de código conviertes el string (que era originalmente TDate) a un tipo TDate

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

Además es buscarle 5 pies al gato cuando existen las funciones:
YearsBetween, MonthsBetween, DaysBetwen, HoursBetween, WeeksBetween, etc., etc. en le unidad DateUtils

[day_eli]

No hay mucha documentación sobre como utilizar YEARSBETWEEN...como me colocan el codigo por alli utilizando esta función, da error!!

Y el truco que me da mi compañero(a) CARAL ya lo probe, y resulta que el datetimepicker no arroja datos TDate sino Tdatetimepicker y no se como convertir los mismos.!!

[day_eli]

Listo con el codigo proporcionado por CAral!!! resolví la situación.

MUCHAS GRACIAS AMIGOS!!

[roman]

Empezado por day_eli

No hay mucha documentación sobre como utilizar YEARSBETWEEN...como me colocan el codigo por alli utilizando esta función, da error!!

El ejemplo de delphi.com.ar funciona perfectamente siempre y cuando incluyas la unidad DateUtils. Yo te recomiendo que uses ese código, porque el de trucomanía tiene el punto que ya notó gabrielkc, no tiene mucho caso hacer una doble conversión de datos.

// Saludos