calcular edad

[emiliu]

Buenas, soy principiante en delphi y necesito calcular el tiempo transcurrido desde una fecha que me inserta el usuario en edits, hasta el el tiempo actual, por ejemplo desde el 2 de enero de 1976 a la 1 de la noche, hasta el momento en el que nos encontramos, hay alguna función ya hecha por delphi , como me aconsejais calcular el tiempo??
gracias de antemano y saludos!!

[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