Узнать точное количество месяцев и дней между датами

[Берсерк]

Сообщение от Dux

Ну Вы даете, Аватар!

Код в одну строчку и отлично работает, тестирую с разными датами, пока багов не нашел

Этот вариант между 01.02.2016 и 01.03.2016 показывает 0 месяцев, т.к. для расчета берет среднее кол-во дней в месяце 30,4

Для расчета кол-ва полных месяцев между датами я сделал вот так, пока ошибок не нашел

var YBegin, MBegin, DBegin, YEnd, MEnd, DEnd : word;
MonthCount : Integer;
begin
DecodeDate(DateTimePicker1.Date,YBe gin, MBegin, DBegin);
DecodeDate(DateTimePicker2.Date,YEn d, MEnd, DEnd);
MonthCount:= 12*(YEnd-YBegin) + (MEnd-MBegin);
if DBegin > DEnd then MonthCount:= MonthCount - 1;
Label8.Caption:=Format('между датами %dмес' ,[MonthCount]);
end;