Borland C++ Builder

//---------------------------------------------------------------------------

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int d,m,y,day,a,n;
int d2,m2,y2;
int F1,F2;

     d=StrToInt(Edit1->Text);
     m=StrToInt(Edit2->Text);
     y=StrToInt(Edit3->Text);

    d2=StrToInt(Edit4->Text);
    m2=StrToInt(Edit5->Text);
    y2=StrToInt(Edit6->Text);


        if(RadioButton1->Checked)      //переключатель "Узнать День Недели"
     {


         a=(14-m)/12;
         y=y-a;
         n=m+12*a-2;
         day=(7000+(d+y+y/4-y/100+y/400+(31*n)/12))%7;

         switch(day)
         { case 0:  Label10->Caption="Воскресенье";      break;
           case 1:  Label10->Caption="Понедельник";      break;
           case 2:  Label10->Caption="Вторник";          break;
           case 3:  Label10->Caption="Среда";            break;
           case 4:  Label10->Caption="Четверг";          break;
           case 5:  Label10->Caption="Пятница";          break;
           case 6:  Label10->Caption="Суббота";          break;
           }
        }

       else                                //переключатель "Узнать разницу между датами"
       {

       try{
        if (m==1 || m==2)
        {
                F1=365*y+d+31*(m-1)+int((y-1)/4)-int(3/4*(int(y-1)/100+1));
                        }
   else
        {
                F1=365*y+d+31*(m-1)-int(0.4*m+2.3)+int(y/4)-int(3/4*(int(y/100)+1));
                        }

        if (m2==1 || m2==2)
        {
        F2=365*y2+d2+31*(m2-1)+int((y2-1)/4)-int(3/4*(int(y2-1)/100+1));
                        }
   else
       { F2=365*y2+d2+31*(m2-1)-int(0.4*m2+2.3)+int(y2/4)-int(3/4*(int(y2/100)+1));
                        }

        }
       catch (EInvalidOp &e)
       {
                ShowMessage ("Необходимо ввеси данные");
                }

      }


      Label10->Caption=abs(F1-F2);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Label10->Caption= " ";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Label10->Caption= " ";
}
//---------------------------------------------------------------------------