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

Цитата:

---

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

---

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

CFC для некоторых: Вложение 16267

Цитата:

---

Сообщение от Roman29

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

---

Цитата:

---

Сообщение от Yegor

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

---

Цитата:

---

Сообщение от Roman29

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

---

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

Цитата:

---

Сообщение от Yegor

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

CFC для некоторых: Вложение 16267

---

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

А мой код работает, проверено
Вложение 16270
ЗЫ.
Или частный случай, без дней недели

Код:

---

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

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

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

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

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

Цитата:

---

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

---

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