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

Result = Now() - TDate("12.05.2012");

Result = DaysBetween (TDate("12.05.2012"), Now());

Word Year, Month, Day, Hour, Min, Sec, MSec;
TDateTime dtPresent = Now();
DecodeDate(dtPresent, Year, Month, Day);
DecodeTime(dtPresent, Hour, Min, Sec, MSec);
//а дальше твори что хочешь:
Form1->Memo3->Lines->Add (AnsiString("Сегодня ") + IntToStr(Day) + AnsiString(" день ") + IntToStr(Month) + AnsiString("  месяца ") + IntToStr(Year)+ AnsiString(" года "));
Form1->Memo3->Lines->Add (AnsiString("Сейчас часов ") + IntToStr(Hour) + AnsiString(" минут ") + IntToStr(Min)+ AnsiString(" секунд ") + IntToStr(Sec) + AnsiString(" миллисекунд ") + IntToStr(MSec));

    Word Hour, Min, Sec, MSec;      //параметры времени начала
    Word  Hour2, Min2, Sec2, MSec2;  //параметры времени конца
    int resM=0, resS=0, resMS=0;//
//------------------------подсчет времени начала обработки--------------------
    TDateTime dtPresent = Now();
    DecodeTime(dtPresent, Hour, Min, Sec, MSec);
//-----------------------------------------------------------------------------
    Sleep(5000);// просто задержку ввел чтоб посчитать
//------------------------------подсчет времени обработки----------------------
    TDateTime dtPresentS = Now();
    DecodeTime(dtPresentS, Hour2, Min2, Sec2, MSec2);
    resMS=MSec2-MSec;
    resS=Sec2-Sec;
    resM=Min2-Min;
    if (resMS<0){resS--;resMS=resMS+1000;}
    if (resS<0){resM--;resS=resS+60;}
    Form1->Label1->Caption = "функция " + IntToStr(resM) + " минут " + IntToStr(resS) + " секунд и " + IntToStr(resMS) + " миллисекунд(ы) ";

    Word Year, Month, Day;      //параметры времени начала
    Word  Year2, Month2, Day2;  //параметры времени конца
    int resY=0, resM=0, resD=0;//
//------------------------подсчет времени начала обработки--------------------
    TDateTime dtPresent = Now();
    DecodeTime(dtPresent, Year, Month, Day);
//-----------------------------------------------------------------------------
 
//------------------------------подсчет времени обработки----------------------
    TDateTime dtPresentS = Now();
    DecodeTime(dtPresentS, Year2, Month2, Day2);
    resY=Year2-Year;
    resM=Month2-Month;
    resD=Day2-Day;
    if (resM<0){resY--;resM=resM+12;}
    if (resD<0){resM--;resD=resD+30;}//тут будет приблизительный результат

TDateTime BackUp,/*дата последнего резервного копирования*/CurrentDate = Date(); // это текущая дата
     DBEdit2->Text=DateToStr(CurrentDate);// на форме вывожу текущую дату
     ShowMessage(DaysBetween(BackUp,CurrentDate));//Использую вашу функцию чтобы найти разницу в числах
     double difference= (double)( CurrentDate - BackUp); //использую другой метод но для той же самой цели
     ShowMessage(difference)//Смотрю что получилось

TDateTime BackUp,/*дата последнего резервного копирования*/CurrentDate = Date(); // это текущая дата
     DBEdit2->Text=DateToStr(CurrentDate);// вывожу сегодняшнюю дату на форму 
     ShowMessage(DaysBetween(BackUp,CurrentDate));//смотрю что возвращает формула
     double difference= (double)( CurrentDate - BackUp); // свой метод определения разницы
     ShowMessage(difference);//смотрю что получилось
     if (difference >3.0 ) {// Читал в теории что возвращается double где 1.0 это один день
     BOOL hFile=CopyFile("..\\DB.mdb",("..\\Backup\\DB_backup_"+DateToStr(CurrentDate)+".mdb").t_str(),true);//собственно говоря само копирование
    if(hFile){ShowMessage("Резервная копия обновлена");//подтверждение копирования
    BackUp=CurrentDate; }//присваивания чтобы не зацикливалось
     }

BOOL GetFileTime(
HANDLE hFile,
LPFILETIME lpCreationTime,
LPFILETIME lpLastAccessTime,
LPFILETIME lpLastWriteTime
);
 
BOOL FileTimeToSystemTime(
const FILETIME* lpFileTime,
LPSYSTEMTIME lpSystemTime
);

HANDLE CreateFile(
LPCTSTR lpFileName,
DWORD dwDesiredAccess,
DWORD dwShareMode,
LPSECURITY_ATTRIBUTES lpSecurityAttributes,
DWORD dwCreationDisposition,
DWORD dwFlagsAndAttributes,
HANDLE hTemplateFile
);

if (CurrentDate>((BackUp.operator --().operator --())).operator --()) {
     BOOL hFile=CopyFile("..\\DB.mdb",("..\\Backup\\DB_backup_"+DateToStr(CurrentDate)+".mdb").t_str(),true);
    if(hFile){ShowMessage("Резервная копия обновлена");
    DeleteFile("..\\Backup\\DB_backup_"+DateToStr(BackUp)+".mdb");
    BackUp=CurrentDate;
    }
     }