арифметика со временем

// Поиск файлов созданых в течении 1, 2, 3-х месяцев-------------------------
void __fastcall TForm1::SearchCreateToNMounth(String date, String namefile)
{
   // Вычисляем диапазон создания файла
   TDateTime tmp = StrToDateTime(StrToDateTime(MyDate(DateScan)) - StrToDateTime(MyDate(date)));
 
   if((int)tmp <= 30){
      Edit3->Text = String(namefile) + " = " + DateScan;
     }                     
}
// BadDate - это дата, которую нужно проверить на "правильность" записи. Допустим, "3-Окт-17 23:22:21"
AnsiString __fastcall TForm1::MyDate(String BadDate)
{
   String MonthRUS[13]={"", "Янв", "Фвр", "Мрт", "Апр", "Май", "Июн", "Июл", "Агс", "Снт", "Окт", "Нбр", "Дкб"};
   String MonthENG[13]={"", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
 
   for(int i = 1; i <= 12; i++){
      BadDate = StringReplace(BadDate, MonthENG[i], i, TReplaceFlags()<<rfReplaceAll);  //Здесь мы заменяем название месяца на его порядковый номер
      BadDate = StringReplace(BadDate, MonthRUS[i], i, TReplaceFlags()<<rfReplaceAll);  //Здесь мы заменяем название месяца на его порядковый номер
     }
   ShortDateFormat = "dd.mm.yyyy";  //Устанавливаем вид "правильной" даты
   for(int i = 1; i < BadDate.Length(); i++){  //Вот здесь мы начинаем проходить циклом по всей записи
      if(!(BadDate[i] >= '0' && BadDate[i] <= '9')){   // И ищем тот символ, который не является цифрой
         DateSeparator = BadDate[i];
         break;
        }   //Как только находим его - делаем его разделителем и прерываем цикл (обязательно, иначе конечным символом станет ":", потому что это будет последняя "не цифра")
   }
   return BadDate; //И возвращаем
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
ShortDateFormat = "dd.mm.yyyy";
DateSeparator = '.';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 ShortDateFormat = ComboBox1->Text;
 switch(ComboBox1->ItemIndex)
 {
        case 0:
        case 1:
        case 2:
                DateSeparator = '.';
                break;
        case 3:
        case 4:
        case 5:
                DateSeparator = '/';
                break;
        case 6:
        case 7:
        case 8:
                DateSeparator = '-';
                break;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ((Edit1->Text=="")||(Edit2->Text=="")) return;
TDateTime dt1, dt2;
dt1 = StrToDate(Edit1->Text);
dt2 = StrToDate(Edit2->Text);
Edit3->Text = IntToStr(CntDay(dt1, dt2));
}
//---------------------------------------------------------------------------
int TForm1::CntDay(TDateTime dt1, TDateTime dt2)
{
if (dt1==dt2) return 0;
if (dt1>dt2) return (dt1-dt2).operator int();
else return (dt2-dt1).operator int();
}
//---------------------------------------------------------------------------