Интервал между датами

#include <DateUtils.hpp>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Edit1->Text = DaysBetween(TDateTime("13.05.2009 23:56:21"),
                             Now());//int
 
   Edit2->Text = DaySpan(TDateTime("13.05.2009 23:56:21"),
                         Now());//double
}
//---------------------------------------------------------------------------

Edit1->Text = DaysBetween(TDateTime("12.12.2017 23:56:21"), Now());

  day  = Edit1->Text.ToInt(); //
  hour = Edit2->Text.ToInt();
  min  = Edit3->Text.ToInt();
  year = Edit5->Text.ToInt();
   mes = Edit4->Text.ToInt();
 
  TDate tt = Now().CurrentDate();// День сейчас
  TTime  b = Now().CurrentTime();// время сейчас
  TTime  told = TTime(hour,min,1,1);
  TDate  dold = TDate(year,mes,day);
 
  DecodeTime((b.Val - told.Val),Hour,Min,Sec,Msec);
  if ((b.Val - told.Val)>0)
  Memo1->Lines->Add(" Прошло дней - "+String(tt.Val - dold.Val)+":"+String(Hour)+":"+String(Min));
     if ((b.Val - told.Val)<0)
   {
     int of = (Int(tt.Val - dold.Val)*24*60)-(Hour*60+1+Min);
     int  m = of%60;
     int  d = of/24/60;
     if (Hour>0)
     {
       Hour =23-Hour;
     }else Hour = 23;
     Memo1->Lines->Add(" Прошло дней - "+String(d)+":"+String(Hour)+":"+m);
   }