Обновлено: 01 декабря, 2018

Функция SameDate в Delphi

Используемый модуль: DateUtils

Описание:

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

Синтаксис:

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

Пример использования:

uses DateUtils;
...
var
  Dt1, Dt2: TDate;
  Res: Boolean;
begin
  Dt1:= Now; // текущая дата
  Dt2:= IncDay(Dt1, 1); // увеличиваем дату на 1 день
  Res:= SameDate(Dt1, Dt2);  // сравниваем даты - возвращает -1
  If Res Then
    ShowMessage('Результат сравнения даты  ' + DateToStr(Dt1) + ' и ' + DateToStr(Dt2) + ' = TRUE')
  Else
    ShowMessage('Результат сравнения даты  ' + DateToStr(Dt1) + ' и ' + DateToStr(Dt2) + ' = FALSE')
end;

Результат:

SameDate в Delphi