Vraag : Leeftijd van Delphi tussen twee data keerde terug als jaar en maanden

Kan somwebody alstublieft helpen. Ik moet leeftijd in niet alleen jaren maar maanden too.

I berekenen heb een D.O.B en een Datum van het Begin van het Risico (om het even welke datum in de toekomst).

I heeft gevonden heeft vele voorbeelden van enkel de Jaren die maar geen code kunnen vinden om de maandentoo.

Please te berekenen!! berekend!

Alan

Antwoord : Leeftijd van Delphi tussen twee data keerde terug als jaar en maanden

Ik heb dateutils eenheid met methodes YearsBetween gebruikt en MonthsBetween, heb ik ook 2 TDateTimePickers op mijn vorm met namen Date1 en Date2 gezet:
1:
2:
3:
4:
5:
6:
7:
8:

var
  jaren, maanden: geheel;
begin
  jaren: = YearsBetween (Date1.Date, Date2.Date);
  maanden: = MonthsBetween (Date1.Date, Date2.Date) - jaren * 12;
  showmessage (inttostr (jaren));
  showmessage (inttostr (maanden));
eind;
Andere oplossingen  
 
programming4us programming4us