CompareDate
Модуль: DateUtils
function CompareDate(const A, B: TDateTime): TValueRelationship;
Функция сравнивает две даты, передаваемые параметры A и B . Возвращает значение TValueRelationship, которое отражает отношения между датами. И поэтому он может возвращать значения:
EqualsValue — если две даты равны;
LessThanValue — если дата A раньше, чем B;
GreaterThanValue — если дата A позже, чем B.
пример:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, Types, DateUtils; var A, B : TDateTime; Result : TValueRelationship; begin A := Now; B := EncodeDate(2005, 06, 27); Result := CompareDate(A, B); case Result of EqualsValue: Writeln('Daty są jednakowe'); LessThanValue: Writeln('Pierwsza data jest wcześniejsza'); GreaterThanValue: Writeln('Pierwsza data jest póżniejsza'); end; Readln; end. |
Тип TValueRelationship объявлен в модуле Types , поэтому не забудьте добавить его в список Uses .