Вопрос : Время Делфи между 2 датами возвратило как год и месяцы

Смогите somwebody пожалуйста помочь. Мне нужно высчитать время в только летах но месяцы too.

I имеют D.O.B и дату начала риска (любую дату в будущем).

I находило много примеров как раз будучи высчитыванным лет но не может найти Кодего для того чтобы высчитать помощь месяцев too.

Please!!!

Alan class=

Ответ : Время Делфи между 2 датами возвратило как год и месяцы

Я использовал блок dateutils с методами YearsBetween и MonthsBetween, я также одевал в 2 TDateTimePickers моя форма с именами Date1 и Date2:

1: 2: 3: 4: 5: 6: 7: 8:

var леты, месяцы: интежер; начните леты: = YearsBetween (Date1.Date, Date2.Date); месяцы: = MonthsBetween (Date1.Date, Date2.Date) - леты * 12; showmessage (inttostr (леты)); showmessage (inttostr (месяцы)); конец;