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

[newerow1989]

3 месяца 31 день

Вряд ли.


А если по порядку пересчитать?

07.11.2016 - 28.02.2017 - 3 мес. 21 дн.
07.11.2016 - 01.03.2017 - 3 мес. 22 дн.
07.11.2016 - 02.03.2017 - 3 мес. 23 дн.
...
07.11.2016 - 06.03.2017 - 3 мес. 27 дн.

[Dux]

Даты: 07.11.2016 - 06.03.2017

Ноябрь - 24 дня
Декабрь - полный месяц
Январь - полный месяц
Февраль - полный месяц
Март - 6 дней

Итого: 3 мес 30 дней (пардон, не 31)

Или я что-то неправильно считаю?

[newerow1989]

Сколько дней будет между
07.11.2016 - 28.02.2017
07.11.2016 - 01.03.2017
?

[Dux]

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

Сколько дней будет между
07.11.2016 - 28.02.2017
07.11.2016 - 01.03.2017
?

если считать по календарю

3 мес 24 дня
3 мес 25 дней

а к чему это Вы?

[newerow1989]

А как получилось 24 дня, если

07.11.2016 - 28.02.2017

28 - 07 = 21

Попробуйте по порядку пересчитать сначала:
07.11.2016 - 07.02.2017 - 3 мес. 0 дн.
07.11.2016 - 08.02.2017 - 3 мес. 1 дн.
...

[Dux]

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

А как получилось 24 дня, если

28 - 07 = 21

Мы немного по разному считаем. Даже не знаю как будет правильно. Я полный месяц просто приравнивал к 1 (кол-во дней в нем не считал). А дни считал из неполных месяцев 24 в ноябре. Т.е. 3 мес 24 дня.

[newerow1989]

Тут нужно мнение других форумчан на этом форуме...

[Dux]

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

Тут нужно мнение других форумчан на этом форуме...

Я больше склоняюсь к тому, что Ваше решение верное! Просто если есть подобные алгоритмы, интересно было бы увидеть их результаты.

[Аватар]

  d1:=EncodeDate(2016,11,7);
  d2:=EncodeDate(2017,3,6);
  Edit1.Text:=Format('между датами %dмес %dдн',[MonthsBetween(d2,d1),DaysBetween(IncMonth(d2,-MonthsBetween(d2,d1)),d1)]);

между датами 3мес 29дн

[Dux]

Сообщение от Аватар

  d1:=EncodeDate(2016,11,7);
  d2:=EncodeDate(2017,3,6);
  Edit1.Text:=Format('между датами %dмес %dдн',[MonthsBetween(d2,d1),DaysBetween(IncMonth(d2,-MonthsBetween(d2,d1)),d1)]);

между датами 3мес 29дн

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

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