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

[Yegor]

когда on>off, currTime>on то всёравно включить и работать до off

У меня вроде так и есть. Ну то есть если включение на 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));

[capzap]

У меня вроде так и есть. Ну то есть если включение на 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));

конечно я не проверял код, просто интуитивно чуствую, не всё так однозначно

...а как с такими НУ on:=4, off:=21, curTime:=22

[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]

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

[Yegor]

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

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

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

[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]

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

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

[Roman29]

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

[KRUG]

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