GetOperationTimeValueFromDB

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

Синтаксис
GetOperationTimeValueFromDB (ABegin, AEnd: TDateTime; ChannelName: String; AONTime, AOFFTime: Integer)
Входные параметры
Имя параметра	Тип параметра	Описание
ABegin	TDateTime	Начальная дата периода
AEnd	TDateTime	Конечная дата периода
ChannelName	String	Наименование канала
AONTime	Integer	Количество секунд, в течение которых канал был включен
AOFFTime	Integer	Количество секунд, в течение которых канал был выключен

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

Var
   resON, resOFF: Integer;
   beginData, endData: TDate;
   nameChannel, s: String;

Begin
   nameChannel := 'Сигнал 3';
   beginData := now()-1;
   endData := now();

   GetOperationTimeValueFromDB(beginData, endData, nameChannel, resON, resOFF);
   s := 'Канал "Сигнал 3" был включен: ' + IntToStr(resON) + #10;
   s := s +' Канал "Сигнал 3" был выключен: ' + IntToStr(resOFF);
   WriteValue('Virtual channel 99', s);
end.