Функция 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
CompareDateTime в Delphi

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...
Добавить комментарий