Проверьте и подскажите "Калькулятор дат"

[DriverSTi]

Только что написал программу, но сам до ума довести не знаю как.
Может кто-то из вас поможет.
Итак, код:

procedure TForm1.Button1Click(Sender: TObject);
  var
     d1,d2,m1,m2,y1,y2 : Integer; // числа вводимые пользователем
               d,m,y,r : Integer; // служебные переменные
  begin
  // получаем исходные данные из полей ввода
     d1 := StrToInt(Edit1.Text);
     d2 := StrToInt(Edit4.Text);
     m1 := StrToInt(Edit2.Text);
     m2 := StrToInt(Edit5.Text);
     y1 := StrToInt(Edit3.Text);
     y2 := StrToInt(Edit6.Text);

     if y1=y2 then y:=0
       else
         if y2>y1 then y:=y2-y1
           else ShowMessage('Неверные данные!');

     if m1=m2 then m:=0
       else
         if m2>m1 then m:=m2-m1
           else begin
                   y:=y-1;
                   m:=(m2+12)-m1;
                end;

     if d1=d2 then d:=0
       else
         if d2>d1 then d:=d2-d1
           else
       case m2 of
         1,3,5,7,8,10,12 : d:=(d2+31)-d1;
                  4,6,9,11 : d:=(d2+30)-d1;
                           2  : begin
                                  r:=y mod 4;
                                    if r=0 then d:=(d2+29)-d1
                                     else d:=(d2+28)-d1;
                                  end;
       end;
     
  Label4.Caption:= 'Ты живешь '+ IntToStr(y) +' г. '+ IntToStr(m)
                   + ' мес. и ' + IntToStr(d) + ' дн.';
  end;

Вопросы:
1) какие строки добавить, чтобы можно было вычислить разницу дат между 9.02.2004 и 29.02.2000 (или 10.02.2000)?

2) как остановить выполнение программы после вывода сообщения о неверном вводе данных (например вторая дата меньше первой)?

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

[Marsel737]

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

2) как остановить выполнение программы после вывода сообщения о неверном вводе данных (например вторая дата меньше первой)?

Exit;

///////////////////////////////////////////////////////////////
РЕ:

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

1) какие строки добавить, чтобы можно было вычислить разницу дат между 9.02.2004 и 29.02.2000 (или 10.02.2000)?

Сообщение от http://www.delphisources.ru/pages/faq/faq_delphi_basics/DaysBetween.php.html

Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.

var
  fromdate, toDate : TDateTime;

begin
  // Установка наших переменных дат
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Отображение этих дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Целых дней = '+
              IntToStr(DaysBetween(toDate, fromDate))+' дней');
end;

С даты = 26/02/2000 10:00:00
До даты = 29/02/2000 09:00:00
Целых дней = 2 дней

[DriverSTi]

2_Marsel737 :

А как Exit правильно записать? Надо, чтобы после того, как пользователь нажмет ОК в поле сообщения он мог исправить неверные данные.

И по поводу второго вопроса: вместо чисел в скобках можно поставить переменные, значения которых вводит пользователь?

[KREGI]

if y2>y1 then
y:=y2-y1
else
begin
ShowMessage('Неверные данные!');
Exit;
end

вроде так можно,
Да, вместо чисел можно переменные. в делфи есть компонент типа календарь, и можно маскэдит использовать...

[Marsel737]

Ещё можна добавить:

if y2>y1 then y:=y2-y1 else 
begin
  ShowMessage('Неверные данные!');
  Edit3.Text:=''; 
  Edit6.Text:=''; 
  Edit3.SetFocus(); 
  Exit;
end;

[DriverSTi]

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

Да, вместо чисел можно переменные. в делфи есть компонент типа календарь, и можно маскэдит использовать...

К сожалению, я пока знаю слишком мало компонентов, функций etc.

[mihali4]

http://programmersclub.ru/files/book1_100comp.rar

[DriverSTi]

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

http://programmersclub.ru/files/book1_100comp.rar

Именно то, что я искал!
Спасибо большое