Скрипты Simple-Scada

Синтаксис

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

Описание

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

Пример кода

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