реализация годового графика включения/выключения

[Валенок]

Вот как вбивать это расписание? Здесь гораздо интересней задачка.

Чего там интересного.
Покласть на ретайн чтоб не стать очередным плакальщиком на форуме.
При старте прочитать из файла и выложить в модбас-слейв.
Периодически проверять слейв на изменения, при их наличии (или специальной просьбе от клиента) - сбрасывать в файл.
Внешним модбас-клиентом менять что-угодно в слейве говоря или нет (все равно обнаружит) об этом
Или просто тупо перенести файл данных в плк и сказать ему об этом чтоб прочитал.
Ну и время ему скидывать для синхронизации
В общем - строк 20..40
А первоначальные данные - тупо программно заполнить.

to petera
А зачем считать дни ?
.. schedule : array[1..12,1..31,1..2] of tod;
Первые два индекса правильно возвратит syslibtime )), и дальше без промежуточных переменных
..
stop := schedule[CurSystemTimeDate.Month, CurSystemTimeDate.Day, ..];
..
//какие, блин, длинные имена. Может просто икс ?