Инкремент (Увеличение) даты на день вперёд

[Человек_Борща]

Доброго всем времени!

Пишу планировщик...
Есть некая галочка "Повторять бесконечно".

юзер вводит дату и время..
Далее происходит проверка, все совпало/прошло(время), но событие надо повторить. А значит нужно изменить дату на день вперёд.

Как увеличеть дату на день вперёд?

[Аватар]

Единичку прибавить

[GunSmoker]

Или IncDay (модуль DateUtils).

[TwiX]

Может стоит не проверять дату, если стоит такая галочка? Просто время сверять.

[Человек_Борща]

TwiX, не задумывался =) Но спасибо. Попробую.
По поводу сабжа, есть функции: Yesterday и Tomorrow. Они более удобные.

Но ситуация:

procedure TApp.DoShedulerCheckEnd(Sender: TObject);
var
  iD, iT: SmallInt; //iDATE, iTime
  i: Integer;
begin
  if AppInfo.ActiveTask then
  begin
    for i := 0 to Sheduler.Count - 1 do
    begin
        if Sheduler.Tasks[i].Active then
        begin
          iT := CompareTime(Now, Sheduler.Tasks[i].Time);
          iD := CompareDate(Now, Sheduler.Tasks[i].Date);
          if ((iT = 0) or (iT = 1) and (iD = 0)) then
          begin
            case Sheduler.Tasks[i].Action of
              saStart: Start;
              saStop: Stop;
              saRestart: Restart;
            end;

           if Sheduler.Tasks[i].CycleTask then
           begin
            Sheduler.Tasks[i].Date:=Tomorrow;
           end;
          end;
        end;
      end;
  end;
end;

Стандартный tTimer работает с запаздыванием...
По этому условие:

if ((iT = 0) or (iT = 1) and (iD = 0)) then

Не даёт запустить задачу вообще(Если выполен план-задача(остановка к примеру)) .
как унать сколько прошло сек. между указанным временем и заданным?

[mihali4]

Сообщение от Человек_Борща

как унать сколько прошло сек. между указанным временем и заданным?

Вы не забыли, что "одна тема - один вопрос" ?
Ответ:

procedure TForm1.Button2Click(Sender: TObject);
var tmp: string;
begin
DateTimeToString(tmp, 'ss', t2-t1);
Label1.Caption:=tmp;
end;

Правда, если интервал больше минуты, нужно добавить по 60 сек. за каждую минуту ...