Создание напоминайний (Pascal(Delphi))

[Smitt&Wesson]

Ну не знаю, будет ли тут тебе понятно? Но это блок проверок на совпадение дат и времени. С Делфии на Си могу переводить. В обратную сторону - увы.

// Функция проверки базы данных. Вызывается из FormCreate и Timer1Timer
void __fastcall TFormHome::SearchMatches()
{
TIniFile *reminder = new TIniFile(ExtractFilePath(Application->ExeName) + "Reminder.txt");
TStringList * sect = new TStringList;
sect->Sorted = false;
SFile sfile;// Значения ключей в секции
reminder->ReadSections(sect);// Список имён секций
SDateTime sdate_time = ParseDateTime(Now());// Декодируем текущую дату и время
TDateTime cur_date(Now());
TDate current_date = cur_date.CurrentDate();
AnsiString section;
for(int sec=0; sec < sect->Count; sec++)
{
  section = sect->Strings[sec];
  sfile = FillingStructure(section);// Читаем очередную секцию
  if(StrToInt(section) != 3 || StrToInt(section) != 4)
    if(sfile.last_tour == current_date) continue;// Пропуск если дата в секции совпадает с стекущей
  if(!sfile.active)// Пропуск, если секция активна
    switch(sfile.period)
    {
      case 0:// Один раз
               if(AnsiDate(sfile.begin_date) > current_date) break;// Проверка даты
      case 1:{// Ежедневно
               if(sfile.time <= sdate_time.time || sfile.time < 0)// Проверка времени
                 reminder->WriteBool(section, "active", true);
               break;
             }
      case 2:{// Еженедельно
               for(int i=1; i <= 7; i++)// Проверяем наличие установленного дня
               {
                 if(sfile.day_week.IsDelimiter("1", i))// День найден
                 {
                   if(sfile.time <= sdate_time.time)// Проверка времени
                   {
                     reminder->WriteBool(section, "active", true);
                     break;
                   }  
                 }
               }
               break;
             }
      case 3:// Ежемесячно
      case 4:{// Ежегодно
               TDate begin_date = AnsiDate(sfile.begin_date);
               TDate end_date = AnsiDate(sfile.end_date);
               if((current_date >= begin_date &&  current_date <= end_date) &&
                  (sfile.last_tour < begin_date || sfile.last_tour > end_date))
               {
                 reminder->WriteBool(section, "active", true);
               }
               break;
             }
      case 5:{// Опред. день года
               AnsiString tmp = "__." + IntToStr(sdate_time.month) + ".__";
               if(sfile.begin_date == tmp)// Совпал ли месяц?
               {
                 if(sfile.day == int((sdate_time.number-1)/7))// Число
                 {
                   if(sfile.day_week.AnsiPos("1")-1 == sdate_time.day)
                   {
                     reminder->WriteBool(section, "active", true);
                   }
                 }
               }
               break;
             }
    }
}
delete sect;
delete reminder;
}

[min@y™]

готовую прогу с исходниками подарить?

http://programmersforum.ru/showpost....23&postcount=6

[Smitt&Wesson]

Сообщение от min@y™

готовую прогу с исходниками подарить?

Легко. Она "для себя" написана. Экзешник, могу прям сейчас выложить. Исходники большие, да и не к чему их сюда. Если интересно, могу по-скайпу скинуть.