Скрипты Simple-Scada

Синтаксис

function CompareTime:(A, B: TDateTime): ShortInt;

Описание

Сравнивает время переменных A и B. Возвращает: "-1" при A < B; "0" при A = B; "1" при A > B.  

Пример кода

var
  aTime1, aTime2: TDateTime;
  I: Integer;
begin
  aTime1:= Now;                     // текущее время
  aTime2:= IncHour(aTime1, 1);      // увеличить время на 1 час
  I := CompareTime(aTime1, aTime2); // сравнить время, результат I = "-1"
end.