Calcular la edad según la fecha de nacimiento

Artículo por Club Developers · 31 diciembre 2005

4608 vistas

Será sencillo con el uso de esta función



delphi
  1.   function Edad(FechaNacimiento: string): integer;
  2.   var 
  3.     iTemp, iTemp2, Nada: word;
  4.     Fecha: TDate;
  5.   begin 
  6.     Fecha := StrToDate(FechaNacimiento);
  7.     DecodeDate(Date, itemp, Nada, Nada);
  8.     DecodeDate(Fecha, itemp2, Nada, Nada);
  9.     if FormatDateTime('mmdd', Date) < FormatDateTime('mmdd', Fecha) then
  10.       Result := iTemp - iTemp2 - 1
  11.     else 
  12.       Result := iTemp - iTemp2;
  13.   end;



y un ejemplo de llamada podrÃa ser:



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin 
  3.   Label1.Caption := intToStr(Edad('07/09/1969'));
  4. end;