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

[Smitt&Wesson]

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

Пожалуйста!

Smitt&Wesson, это раздел "Общие вопросы Delphi"

А я сразу сделал оговорку, что на PHP. Ну, на дельфине у меня алгоритмов нет.
Либо так. Либо - никак. Выбора нет.

[newerow1989]

Dux, мои посты на делфи написаны

[Dux]

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

Dux, мои посты на делфи написаны

Та я с ними и работаю сейчас, но как я написал выше, считает некорректно. Пост #8

[newerow1989]

А что неправильно?

[Dux]

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

А что неправильно?

Повторюсь

Если ввести даты:

12.02.2016 и 12.03.2016 программа выдает 1 месяц и 29 дней..

А фактически между датами 1 месяц и 0 дней, либо меньше месяца,т.к. в феврале 29

Да и дни считаются неправильно, Ваш алгоритм выдает все дни, а не остаток дней.

[newerow1989]

Исправил:

procedure TForm1.Button1Click(Sender: TObject);
var
from_date, to_date:TDate;
days,Full_months,i,k:integer;
d1,d2,m1,m2,y1,y2:word;
DayTable:tDayTable;
begin
to_date:=DateTimePicker1.DateTime;
from_date:=DateTimePicker2.DateTime;

DecodeDate(from_date,y1,m1,d1);
DecodeDate(to_date,y2,m2,d2);


Full_Months:=(y1-y2)*12+(m1-m2);
If d1<d2 then
   Full_Months:=Full_Months-1;

Days:=Round(from_date-to_date);
For i:=1 to Full_Months do
begin
   DayTable:=MonthDays[IsLeapYear(y2)];
   k:=DayTable[m2];
   Days:=Days-k;
   m2:=m2+1;
   If m2>12 then
   begin
      y2:=y2+1;
      m2:=1;
   end;
end;

Edit1.Text:=inttostr(Full_months);
Edit2.Text:=inttostr(days);
end;

[Dux]

Вот спасибо огромное!!! Работает!

[newerow1989]

Пожалуйста!

[Dux]

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

Пожалуйста!

Единственное - есть один неприятный БАГ

07.11.2016 - 06.03.2017 - 3 месяца 27 дней (Пересчитал фактически по календарю получается 3 месяца 31 день)

а если изменить на 1 день

07.11.2016 - 07.03.2017 - 4 месяца 0 дней

Т.е. количество дней в месяцах не учитывается, либо учитывается некорректно.

Можно ли как-то загнать в массив кол-во дней в каждом месяце и потом уже с ними оперировать?

[Аватар]

Format('между датами %dмес %dдн',[MonthsBetween(d2,d1),DaysBetween(IncMonth(d2,-MonthsBetween(d2,d1)),d1)]);

юнит DateUtils