Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.02.2023, 12:38   #1
RosasSlave
 
Регистрация: 12.06.2020
Сообщений: 4
По умолчанию Сделать выполнение кода в определенные часы

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

Последний раз редактировалось RosasSlave; 14.02.2023 в 15:15.
RosasSlave вне форума Ответить с цитированием
Старый 14.02.2023, 13:23   #2
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Так измените условие на обратное
Код:
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

Последний раз редактировалось macomics; 14.02.2023 в 14:28.
macomics вне форума Ответить с цитированием
Старый 14.02.2023, 15:34   #3
RosasSlave
 
Регистрация: 12.06.2020
Сообщений: 4
По умолчанию

Отлично, спасибо за помощь!
RosasSlave вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать чтобы пользователь мог ввести определенные символы? Никита Питоновский Python 1 14.12.2019 18:03
Запуск макроса в определенные часы astral Microsoft Office Excel 3 04.06.2015 20:35
Sleep останавливает выполнение всего в программе а не задерживает выполнение конкретного куска кода? Illusiony Общие вопросы Delphi 19 22.02.2015 18:37
сделать доступными для выбора только определенные даты в TDateTimePicker garuna Общие вопросы Delphi 2 07.12.2014 20:40
Сделать выполнение кода пошаговым Cruzel C++ Builder 4 28.10.2014 13:18