Содержание:


GetOperationTimeValueFromDB

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

Синтаксис

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.