Скрипты Simple-Scada

Синтаксис

function CompareDate:(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:= IncDay(aDate1, 1);       // увеличить дату на 1 день
  I := CompareDate(aDate1, aDate2); // сравнить даты, результат I = "-1"
end.