Помощь написания скрипта определения времени обновления значения

День добрый.

Если немного подробней распишите задачу, я постараюсь Вам помочь. Если я правильно Вас понял, то время должно отображать то значение в которое произошло изменение переменной, все верно?

Есть прибор с которого удаленно снимаются показания раз в час. Есть поля в которых выводятся значения, нужно отдельно поле в котором будет выводится время последнего обновления этих показаний. Я попробовал вот так:

Var

Но при ошибках на пример модем не сработал, или связь потерялась на удаленном объекте, то обновляется время а показания то старые. По этому нужно чтобы текущее показания в scade сравнивались с показаниями текущими в opc если они изменились в любую сторону то обновилось время.

День добрый.

Попробуйте такой вариант:

Var
  Value, CurrentValue: double;

  // Выполняется при первом старте скрипта
  procedure OnStartScript;
  begin
    value := ReadValue('Промплощадка_дом_2.Прямая_int');
  end;
  // Выполняется при завершении работы скрипта
  procedure OnStopScript;
  begin
    // Ваш код
  end;

begin
  CurrentValue := ReadValue('Промплощадка_дом_2.Прямая_int');
  if CurrentValue <> Value then
  begin
    Value := CurrentValue;
    WriteValue('Virtual channel 1', DateTimeToStr(now));
  end;
end.

Спасибо за помощь. Все замечательно работает.

Здравствуйте. Снова прошу помощи до делать данный скрипт. Теперь две переменных. Когда значение изменяется в большую или меньшую сторону любой переменной, то нужно чтобы изменилось время.

Сейчас скрипт под одну переменную.

Var

День добрый.

Добавьте сравнение для второй переменной:

CurrentValue := ReadValue('Промплощадка_дом_2.Прямая_int');
CurrentValue1 := ReadValue('Промплощадка_дом_3.Прямая_int');
if (CurrentValue <> Value) or (CurrentValue1 <> Value ) then
begin
  Value := CurrentValue;WriteValue('Virtual channel 1', DateTimeToStr(now));
end;

Здравствуйте. Если я добавляю полностью переменную CurrentValue1 в скрипт, то время 'Virtual channel 1',tim - то время начинает постоянно считаться.

Var

День добрый.

Var
Value, CurrentValue: double;
Value1, CurrentValue1: double;
tims:TDateTime;
tim:string;

//Выполняется при первом старте скрипта
procedure OnStartScript;
begin
  value := ReadValue('УДО. Давление прямого трубопровода');
  value1 := ReadValue('УДО. Давление обратного трубопровода');
end;

//Выполняется при завершении работы скрипта
procedure OnStopScript;
begin 
  // Ваш код
  tims := GetTimeStamp('УДО. Давление прямого трубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('Время последнего опроса Узла учета УДО', tim);
 
  tims := GetTimeStamp('УДО. Давление обратноготрубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('имя канала', tim);
end;

begin
  CurrentValue := ReadValue('УДО. Давление прямого трубопровода');
  CurrentValue1 := ReadValue('УДО. Давление обратного трубопровода');
  if (CurrentValue <> Value) or (CurrentValue1 <> Value1 ) then 
  begin
    Value := CurrentValue;
    Value1 := CurrentValue1;
    WriteValue('Время последнего опроса Узла учета УДО', DateTimeToStr(now));
  end;
end.

Нужно чтобы поле куда выводится информация - ('Время последнего опроса Узла учета УДО', tim) должно быть общее!

  tims := GetTimeStamp('УДО. Давление обратного трубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('имя канала', tim); - Как вариант??? если только здесь прописать поле из:
 tims := GetTimeStamp('УДО. Давление прямого трубопровода');  
 tim:=DateTimeToStr(tims);
 WriteValue('Время последнего опроса Узла учета УДО', tim);