Questione : L'età di Delfi fra due date ha rinviato come l'anno e mesi

Può somwebody aiutare prego. Devo calcolare l'età durante non solo gli anni ma i mesi too.

I hanno un D.O.B e una data di inizio di rischio (qualsiasi data in avvenire). il

I ha trovato molti esempi appena degli anni che sono calcolati ma non può trovare il codice per calcolare l'aiuto di mesi too.

Please!!!

Alan class= del

Risposta : L'età di Delfi fra due date ha rinviato come l'anno e mesi

Ho usato l'unità dei dateutils con i metodi YearsBetween e MonthsBetween, inoltre ho messo 2 TDateTimePickers sulla mia forma con i nomi Date1 e Date2:
1:
2:
3:
4:
5:
6:
7:
8:

varietà
  anni, mesi: numero intero;
cominciare
  anni: = YearsBetween (Date1.Date, Date2.Date);
  mesi: = MonthsBetween (Date1.Date, Date2.Date) - anni * 12;
  showmessage (inttostr (anni));
  showmessage (inttostr (mesi));
estremità;
Altre soluzioni  
 
programming4us programming4us