calcular edad

[dec]

Hola,

No sé hasta qué punto podrás lograr lo que precisas, pero, en la unidad "DateUtils.pas" cuentas con funciones como "YearsBetween" (años de diferencia entre dos fechas), "MonthsBetween" (meses de diferencia entre dos fechas), "DaysBetween" (días de diferencia entre dos fechas), "HoursBetween" (horas de diferencia entre dos fechas) e, incluso, "MinutesBetween" (minutos de diferencia entre dos fechas) y "SecondsBetween" (segundos de diferencia entre dos fechas). En dicha unidad "DateUtils.pas" encontrarás más funciones y procedimientos y otras hierbas para trabajar con fechas en Delphi.

[jlmelida]

La siguiente función calcula la edad en años, segun la fecha de nacimiento. Puede adaptarse a lo que buscas.

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('07/09/1969'));
 end;

[emiliu]

si gracias amigos, eso era lo que me refería