Скрипты Simple-Scada

Синтаксис

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

Описание

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

Пример кода

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