Скрипты Simple-Scada

Синтаксис

function SameTime(A, B: TDateTime): Boolean;

Описание

Показывает, совпадают ли значения времени в двух значениях TDateTime.

Пример кода

var
  aDate1, aDate2: TDateTime;
  aBool: Boolean;
begin
  aDate1:= Now;                     // текущее время
  aDate2:= IncMinute(aDate1, 1);    // увеличить время на 1 минуту
  aBool:= SameTime(aDate1, aDate2); // сравнить время
 
  if aBool then
    // если совпадает выдать сообщение:
    ShowMessageClient(GetClientName, '', 'Время совпадает', clGray)
  else
    // иначе сообщение:
    ShowMessageClient(GetClientName, '', 'Время не совпадает', clGray);
end.