Я так понял тебе надо что бы выдало например
3 года 4 месяца 12 дней
тогда делаешь так
DeltaYears:=YearsBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime);
DeltaMonth:=MonthsBetween(DateTimePicker1.DateTime ,DateTimePicker2.DateTime)- 12*DeltaYears;
if DayOfTheMonth(DateTimePicker1.DateTime)>=DayOfTheM onth(DateTimePicker2.DateTime) then
DeltaDays:=DayOfTheMonth(DateTimePicker1.DateTime) -DayOfTheMonth(DateTimePicker2.DateTime))
else
DeltaDays:=DayOfTheMonth(DateTimePicker1.DateTime) -DayOfTheMonth(DateTimePicker2.DateTime)+DaysInMont h(DateTimePicker2.DateTime)
|