Delphi расчет дат! Прошу помощи!

[ChromeDevils]

Добрый день! Недавно начал работать на Delphi и возникла трудность с расчетом разницы дат и выводом их. Перерыл все что можно, наткнулся на этом форуме на пост с расчетом месяцев и дней, возникла проблема с расчетом года, год у меня считается но с месяцами и днями настоящая беда получается.

код с форума по месяцам и дням - все супер

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;

Вот мои страдания (хочу извиниться программист я не великий, только изучаю)

var
from_date, to_date:TDate;
days,months,Full_months,i,k,Full_ye ar,a,b: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_year:= (y1-y2);
If m1<m2 then
Full_year:=Full_year-1;

months:= Round(from_date-to_date);
For a:=1 to Full_year do
begin
DayTable:=MonthDays[IsLeapYear(y2)];
b:= DayTable[y2];
Months:= Months-b;
y2:=y2+1;
if y2>1 then
begin
m2:=m2+1;
y2:=1;
end;
end;

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);
Edit3.Text:=inttostr(days);
Edit37.Text:= inttostr(Full_year);

Необходимо реализовать вывод разницы в формате год-месяц-день

Буду очень сильно благодарен за помощь!!!

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[evg_m]

для оформления кода есть кнопка #
ответьте себе на вопросы(замечания) в комментариях кода и исправьте код при необходимости.

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

  Full_year:= (y1-y2);
  If m1<m2 then Full_year:=Full_year-1;// 25.01.2012 - 19.01.2013 и какое же будет и должно здесь получиться (УЧИТЫВАЯ что m1=m2 а вот с днями ?!)

  months:= Round(from_date-to_date);//это ДНИ а не месяцы.
  For a:=1 to Full_year do
  begin
    DayTable:=MonthDays[IsLeapYear(y2)];// и какое число дней мы здесь узнали
    b:= DayTable[y2]; //а какое число и чего (дней|месяцов?) узнали(определили) здесь
    Months:= Months-b;
....

дальше не смотрел(ибо зачем если все пошло не так)

есть хорошие функции работы с датами
DaysBetween MonthsBetween YearsBetween вполне быть может они справятся с вашей задачей( при небольшой помощи).
и еще множество других. к примеру IncYear IncMonth IncDay

uses DateUtils; //это где их можно найти(подключить)

а можно все переписать заново

type
  Tymd: record year, month, day: word; end;

function BetweenYMD(d2, d1: Tdate): TYMD;
var
  dr: Tdate;
  dy, dm, dd: integer;
begin
  dr:=d1;
  dy:=YearsBetween(d2, dr);
  dr:=IncYear(dr, dy);

  dm:=MonthsBetween(d2, dr);
  dr:=IncMonth(dr, dm);

  dd:=DaysBetween(d2, dr);
  dr:=IncDay(dr, dd);
  Assert(dr<>d2, 'ошибка в расчетах');
 
  result.year:=dy;
  result.month:=dm;
  result.day:=dd;
end;

и ее использование

var
  delta: TYMD;
begin
   delta:=BetweenYMD(DateTimePicture2.Date, DateTimePicture1.Date);
   Edit1.Text:=format('y=%d m=%d d=%d', [delta.year, delta.month, delta.day]);

я конечно же понимаю что здесь для вас внове format, record да и свой тип, но это базис на котором все стоит.
Да код я не проверял, так что ...

[ChromeDevils]

Спасибо большое, очень полезно для меня!