Алгоритм включения выключения по времени

[Yegor]

on:=4, off:=21, curTime:=22

Выключено согласно первой строчке.

CFC для некоторых: ON_OFF.ZIP

[petera]

Подскажите как реализовать следующий алгоритм (CFC)
Задается время включения выключения
если задано в 9 включить а 1 выключить то чтоб в промежуток между 9 и 1 должно произойти включение *(если оператор задал в 10 часов, чтоб включилось 9 то должно включится не на следующий день а сразу )
а с 1 до 9 выключение

Я что-то не догоняю или вы дружно велосипед изобретаете?

проблема в том что надо именно так . Уже месяц голову ломаю.
В СКАДЕ выставляется время включения час + минуты и время выключения
сейчас включается ровно в за данное время (9:00 к примеру )

Я уже выкладывал готовый ФБ http://www.owen.ru/forum/showthread....l=1#post158114
В программе на CFC будет выглядеть так
Захват-1.png

[capzap]

Выключено согласно первой строчке.

CFC для некоторых: ON_OFF.ZIP

а чего у меня тогда горит выход?

[petera]

А мой код работает, проверено
Захват-2.png
ЗЫ.
Или частный случай, без дней недели

CASE BOOL_TO_INT(time_on <= time_of) OF
0:    q:=NOT(current_time >= time_of AND current_time < time_on);
1:    q:=current_time >= time_on AND current_time < time_of;
END_CASE

(*Или такой вариант
IF    time_on <= time_of THEN
    q:=current_time >= time_on AND current_time < time_of;
ELSE
    q:=NOT(current_time >= time_of AND current_time < time_on);
END_IF
*)

[Yegor]

а чего у меня тогда горит выход?

Скобки во второй строке забыли (ну, то есть я сначала забыл).

[petera]

У меня вроде так и есть. Ну то есть если включение на 9:00, выключение — на 03:00 (ночи), и сейчас 23:00, то оно (за)работает. И в 01:00 ночи оно (за)работает.

Фу ты блин, скобки забыл:

out := (on < off AND curTime >= on AND curTime < off) OR
       (on > off AND (curTime < off OR curTime > on));

Чтобы совсем было гуд, надо в последнем условии вместо ">" ставить ">="

out := (on < off AND curTime >= on AND curTime < off) OR
       (on > off AND (curTime < off OR curTime >= on));

В противном случае если on > off, то out включается на целый час позже значения "on"

[Roman29]

Спасибо всем сейчас буду пробовать

[Roman29]

Спасибо всем сейчас буду пробовать

[KRUG]

у меня освещение примерно так
svet12_0 := TimeAndDate.Hour >=2 AND TimeAndDate.Hour <=20; (*время включения и выключения тогда будет работать с 21-1*)
MDVV_out.7:= NOT svet12_0 AND autosvet;

[Yegor]

В противном случае если on > off, то out включается на целый час позже значения "on"

Я так-то с типом TOD это предполагал использовать, который здесь очень кстати. Тогда ошибка на одну миллисекунду, а не на час. Но всё равно ошибка, вы правы.