Скрипты Simple-Scada

Синтаксис

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

Описание

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

Пример кода

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