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

Функция CompareDateTime в Delphi

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

Описание:

Сравнивает значения А и В типа TDateTime. Возвращает -1 (LessThanValue) при А < В, О (EqualsValue) при А = В, +1 (GreaterThanValue) при А > В.

Синтаксис:

function CompareDateTime(const A, B: TDateTime): TValueRelationship;

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

uses DateUtils;
...
var
  Dt1, Dt2: TDateTime;
  Res : Integer;
begin
  Dt1:= Now; // текущие дата и время
  Dt2:= IncHour(Dt1, 1); // увеличиваем время на час
  Res:= CompareDateTime(Dt1, Dt2); // сравниваем дату время - возвращает -1
  ShowMessage('Результат сравнения даты и времени '+DateTimeToStr(Dt1)+' и '+DateTimeToStr(Dt2)+' = '+IntToStr(Res));
end;

Результат:

CompareDateTime в Delphi