Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Май

Сделать выполнение кода в определенные часы

Posted by obzor under Delphi

Мне требуется выполнять некий код в программе в определенные часы.
К примеру ставим диапазон 20-12. Это значит что код будет выполняться каждую минуту с 20 часов вечера по 12 часов дня (следующего)

macomics

Так измените условие на обратное

Код:

if not InRange(strtoint(FormatDateTime('hh', now)), 12, 20) then

Останется решить вопрос по поводу минут часа. Если предыдущий диапазон предполагал, что срабатывать будет с 20:00 по 12:59, тогда условие стоит изменить на такое

Код:

if not InRange(strtoint(FormatDateTime('hh', now)), 13, 19) then

ADD: В общем виде можно так

Код:

i := 20;
j := 12;
k := strtoint(FormatDateTime('hh', now));
if ((i < j) and (InRange(k, i, j))) or ((i = j) and (k = i)) or ((i > j) and (not InRange(k, j + 1, i - 1))) then