Cuestión : La edad de Delphi entre dos fechas volvió como año y meses

Puede somwebody ayudar por favor. Necesito calcular edad en no sólo años pero los meses too.

I tienen un D.O.B y una fecha de inicio del riesgo (cualquie fecha en el futuro). ¡el

I ha encontrado muchos ejemplos apenas de los años que eran calculados pero no puede encontrar código para calcular la ayuda de los meses too.

Please!!!

Alan class= del

Respuesta : La edad de Delphi entre dos fechas volvió como año y meses

He utilizado la unidad de los dateutils con los métodos YearsBetween y MonthsBetween, también he puesto 2 TDateTimePickers en mi forma con los nombres Date1 y Date2:
1:
2:
3:
4:
5:
6:
7:
8:

var
  años, meses: número entero;
comenzar
  años: = YearsBetween (Date1.Date, Date2.Date);
  meses: = MonthsBetween (Date1.Date, Date2.Date) - años * 12;
  showmessage (inttostr (años));
  showmessage (inttostr (meses));
extremo;
Otras soluciones  
 
programming4us programming4us