Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Calcular EDAD en años, meses y dias de una Persona (https://www.clubdelphi.com/foros/showthread.php?t=80805)

MaMu 09-06-2007 17:55:19

Calcular EDAD en años, meses y dias de una Persona
 
Código Delphi [-]
function CalculaEdadCompleta(Fecha:TDateTime):String;
var A, AA, M, MM, D, DD: Word;
  Anio, Mes, Dia: double;
begin
  DecodeDate(Fecha, A, M, D);
  DecodeDate(Date, AA, MM, DD);
  Anio := Int(AA - A);
  if( M <= MM ) then
     Mes := MM - M
  else
  begin
    Mes := MM+12-M;
    Anio := Anio -1;
  end;
  if( D <= DD ) then
    Dia := DD - D
  else
  begin
    Dia:=DD+MonthDays[IsLeapYear(AA),MM]-D;
    Mes := Mes -1;
  end;
if Mes < 0 then
  begin
    Anio := Anio - 1;
    Mes := 12 + Mes;
  end;
  Result := Format('Años: %.0f, Meses: %.0f, Dias: %.0f', [Anio, Mes, Dia]);
end;
y la llamada

Código Delphi [-]
Label1.Caption:=CalculaEdadCompleta( DateTimePicker1.Date);

diegoforever24 26-07-2007 17:55:57

Perfecto, funciona correctamente. Es un código fácil de entender incluso desde los programadores principiantes. Bien por todo.

luchifer 09-05-2011 04:25:25

Muy bonito, sencillo y de facil aplicacion

leyendax3 25-08-2013 19:01:26

buenas, e estado intentando implementar la función pero me da error. favor de completar el código para un componente DateTimePicker, Label y un Boton.

Casimiro Notevi 25-08-2013 19:03:42

Cita:

Empezado por leyendax3 (Mensaje 466017)
buenas, e estado intentando implementar la función pero me da error. favor de completar el código para un componente DateTimePicker, Label y un Boton.

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

leyendax3 25-08-2013 19:16:13

Ok, ya entendí el código y me funciono perfectamente, gracias..

delphi.com.ar 03-09-2013 00:57:24

Agrego otras opciones: http://www.clubdelphi.com/foros/showthread.php?t=2468


La franja horaria es GMT +2. Ahora son las 22:20:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi