Обновлено: 01 декабря, 2018

Функция IsSameDay в Delphi

Используемый модуль: DateUtils

Описание:

Определяет, относятся ли два указанных значения AValue типа TDateTime и ABasis типа TDateTime к одному дню.

Синтаксис:

function IsSameDay(const AValue, ABasis: TDateTime): Boolean;

Пример использования:

uses DateUtils;
...
var
  Res: Boolean;
begin
  Res:= IsSameDay(Today,Yesterday); // показывает относится ли сегодняшняя и вчерашняя дата к одному дню
  If Res Then
    ShowMessage('TRUE!')
  Else
    ShowMessage('FALSE!');
end;

Результат:

IsSameDay в Delphi