Pytanie : Delphi Wiek między dwa data wracać jako rok i miesiąc

Móc somwebody pomoc. I potrzebować wiek w nie tylko rok ale miesiąc too.

I mieć D.O.B i Ryzyko Data Początkowa (w datować w przyszłości).

I znajdować wiele przykład właśnie the Rok ale móc kod the miesiąc too.

Please Pomoc!!!

Alan

Odpowiedź : Delphi Wiek między dwa data wracać jako rok i miesiąc

I używać dateutils jednostka z metoda YearsBetween i MonthsBetween, I także stawiać 2 TDateTimePickers na mój forma z imię Date1 i Date2:
(1):
2:
3:
4:
5:
6:
7:
8:

var
  rok, miesiąc: integer;
zaczynać
  rok: = YearsBetween (Date1.Date, Date2.Date);
  miesiąc: = MonthsBetween (Date1.Date, Date2.Date) - rok * 12;
  showmessage (inttostr (rok));
  showmessage (inttostr (miesiąc));
końcówka;
Inne rozwiązania  
 
programming4us programming4us