CompareTime Delphi - Okolokompa

CompareTime

Модуль: DateUtils
function CompareTime(const A, B: TDateTime): TValueRelationship;

Функция сравнивает два значения времени , передаваемые параметры A и B . Возвращает значение TValueRelationship, которое отражает отношения между датами. И поэтому он может возвращать значения:

EqualsValue- если две даты равны;
LessThanValue- если дата A раньше, чем B ;
GreaterThanValue- если дата А позже , чем B .

пример:

program FooApp;

{$APPTYPE CONSOLE}

uses

SysUtils, Types, DateUtils;

var

A, B : TDateTime;

Result : TValueRelationship;

begin

A := Now;

B := EncodeTime(19, 50, 0, 0);

Result := CompareTime(A, B);

case Result of

EqualsValue: Writeln('Czasy są jednakowe');

LessThanValue: Writeln('Pierwszy czas jest wcześniejszy');

GreaterThanValue: Writeln('Pierwszy czas jest póżniejszy');

end;

Readln;

end.

Тип TValueRelationship объявлен в модуле Types , поэтому не забудьте добавить его в список Uses .