CompareDateTime
Модуль: DateUtils
function CompareDateTime(const A, B: TDateTime): TValueRelationship;
Функция сравнивает два значения типа TDateTime, передаваемые параметры 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 := EncodeDateTime(2005, 06, 20, 19, 50, 0, 0); Result := CompareDateTime(A, B); case Result of EqualsValue: Writeln('Wartości są jednakowe'); LessThanValue: Writeln('Pierwsza wartość jest mniejsza'); GreaterThanValue: Writeln('Pierwsza wartość jest większa'); end; Readln; end. |
Тип TValueRelationship объявлен в модуле Types , поэтому не забудьте добавить его в список Uses .