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

[Dux]

Господа программисты, прошу Вашей помощи. Уже второй день вожусь. Нужно узнать количество месяцев и дней между двумя датами. Сам набросал такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
from_date, to_date:TDate;
days, days_fm, days_left:integer;
Full_months:String;

begin
from_date:=DateTimePicker1.DateTime;
to_date:=DateTimePicker2.DateTime;

//Всего дней между двумя датами
Days:=DaysBetween(from_date, to_date);

//Полных месяцев между двумя датами
Full_Months:=IntToStr(Trunc(Days/30.4375));

//Количество дней в полных месяцах
days_fm:=Round(30.4375*strToInt(Full_Months));

//Остаток дней
days_left:=Days-Days_fm;

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

Но дело в том, что я здесь использую усредненное число дней в месяце 30.4375, а мне необходимо вычислить точное количество с учетом февраля 28-29 дней и остальных месяцев 30-31 день.

Подскажите, может кто-то уже решал для себя такую задачу?

[newerow1989]

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

Days:=Round(from_date-to_date);

DecodeDate(from_date,y1,m1,d1);
DecodeDate(to_date,y2,m2,d2);
Full_Months:=(y1-y2)*12+(m1-m2);

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

[Dux]

К сожалению не работает. Если ввести даты

29.02.2016 и 12.03.2016

Выдает результат: месяцев "-1", дней "-12"

Во-первых почему-то с минусом, во вторых неправильно.

[newerow1989]

А если наоборот поставить переменные:

to_date:=DateTimePicker1.DateTime;
from_date:=DateTimePicker2.DateTime;

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

Days:=Round(from_date-to_date);

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; // эта строчка необходима для вычисления ПОЛНЫХ месяцев

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

[Dux]

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

А если наоборот поставить переменные:

to_date:=DateTimePicker1.DateTime;
from_date:=DateTimePicker2.DateTime;

Наоборот - только минус ушел, а результат все тот же - неправильный

[newerow1989]

Я выше дополнил пост

[Smitt&Wesson]

Dux, это на Пихе, по думаю - разберёшься.

// первый понедельник января 2011
echo compute_day(1, 1, 1, 2011); // 3
 */

function compute_day($weekNumber, $dayOfWeek, $monthNumber, $year)
{
    // порядковый номер дня недели первого дня месяца $monthNumber
    $dayOfWeekFirstDayOfMonth = date('w', mktime(0, 0, 0, $monthNumber, 1, $year));// 0 - воскресенье 6 - суббота 
    if($dayOfWeekFirstDayOfMonth == 0) $dayOfWeekFirstDayOfMonth = 7;  
 
    // сколько дней осталось до дня недели $dayOfWeek относительно дня недели $dayOfWeekFirstDayOfMonth
    $diference = 0;
 
    // если нужный день недели $dayOfWeek только наступит относительно дня недели $dayOfWeekFirstDayOfMonth
    if ($dayOfWeekFirstDayOfMonth <= $dayOfWeek) $diference = $dayOfWeek - $dayOfWeekFirstDayOfMonth;
    // если нужный день недели $dayOfWeek уже прошёл относительно дня недели $dayOfWeekFirstDayOfMonth
    else $diference = 7 - $dayOfWeekFirstDayOfMonth + $dayOfWeek;

    $month_number = array(31,28,31,31,31,30,31,31,30,31,30,31);// Массив дней в месяце
    // Проверяем високосный или не високосный год
    if(is_leap_year($year)) $month_number[1]+=1;// К февралю добавляем день
   
    $rez = 1 + $diference + ($weekNumber - 1) * 7;
    if($rez > $month_number[$monthNumber-1]) $rez = -1;    
    return $rez; 
}

[Dux]

Спасибо! но оказывается не так все просто

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

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

[newerow1989]

Пожалуйста!

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

[Dux]

К сожалению PHP не владею. Если Вас не затруднит, подсобите на дельфи