Процедура для битовых каналов подсчитывает время (в секундах) сколько указанный канал был в состоянии 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. |