GetOperationTimeValueFromDB

Процедура GetOperationTimeValueFromDB() для битовых каналов подсчитывает время (в секундах) сколько указанный канал был в состоянии True, и сколько в состоянии False.

GetOperationTimeValueFromDB(Begin, End, ChannelName, ONTime, OFFTime)
Begin: TDateTime	Начальная дата периода
End: TDateTime	Конечная дата периода
ChannelName: String	Наименование канала
ONTime: Integer	Имя переменной для значения времени, когда указанный канал был включен
OFFTime: Integer	Имя переменной для значения времени, когда указанный канал был выключен

Пример вызова:

{Pascal Script}
Var
resON, resOFF: Integer;
beginData, endData: TDate;
nameChannel: String = 'Сигнал 3';

Begin
   beginData := now-1;
   endData := now;

   GetOperationTimeValueFromDB(beginData, endData, nameChannel, resON, resOFF);
   AddToDebugLog('Канал "Сигнал 3" был включен = ' + intToStr(resON));
   AddToDebugLog('Канал "Сигнал 3" был выключен = ' + intToStr(resOFF));
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.