IsSameDay
Модуль: DateUtils
function IsSameDay(const AValue, ABasis: TDateTime): Boolean;
Функция вернет True, если значения, переданные в параметрах AValue и ABasic, указывают на один и тот же день, один и тот же год и месяц (значения времени могут отличаться).
Вот пример, где функция возвращает true:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, Types, DateUtils; var A, B : TDateTime; Result : Boolean; begin A := EncodeDate(2006, 06, 20); B := EncodeDate(2006, 06, 20); Result := IsSameDay(A, B); if Result then Writeln('Tak, to ten sam dzień!') else Writeln('Niestety, to nie ten sam dzień!'); Readln; end. |