Fråga : Den Delphi åldern mellan två daterar gånget tillbaka som år och månader

Kan somwebody behaga hjälp. Jag behöver att beräkna ålder i inte endast år, men månader too.

I har en D.O.B och en riskerastart att datera (datera any i framtiden).

I har funnit många exempel av precis åren som beräknas men, kan inte finna kodifierar för att beräkna hjälpen för månader too.

Please!!!

Alan " klar "

Svar : Den Delphi åldern mellan två daterar gånget tillbaka som år och månader

Jag har använt dateutilsenheten med metoder YearsBetween, och MonthsBetween, har jag också satt 2 som TDateTimePickers på mitt bildar med namnger Date1 och Date2:
1:
2:
3:
4:
5:
6:
7:
8:

var
  år månader: heltal;
börja
  år: = YearsBetween (Date1.Date, Date2.Date);
  månader: = MonthsBetween (Date1.Date, Date2.Date) - år * 12;
  showmessage (inttostr (år));
  showmessage (inttostr (månader));
avsluta;
Andra lösningar  
 
programming4us programming4us