Последние записи
- Как копировать текст из блока в буфер обмена?
- Получение ProductKey установленной Windows
- Как парсить https сайт ?
- Смена регистра строки текста на BAT (CMD)
- Вывод разноцветного текста на BAT (CMD)
- Узнать дату окончания сертификата
- Как создать полноценный сайт на Open Server
- Получить температуру процессора на bat-файлах
- Динамические массивы в Lazarus / Delphi — индексация элементов
- Многозадачность на бат-файлах
Интенсив по 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 часов дня (следующего)
Так измените условие на обратное
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
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)

