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

Функция IsPM в Delphi

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

Описание:

Определяет, относится ли указанное время AValue типа TDateTime ко второй половине дня (после полудня).

Синтаксис:

function IsPM(const AValue: TDateTime): Boolean;

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

uses DateUtils;
...
var
  Res: Boolean;
begin
  Res:= IsPM(Now); // проверяем относится ли текущая дата ко второй половине дня
  If Res Then
    ShowMessage('Сейчас вторая половина дня!')
  Else
    ShowMessage('Сейчас первая половина дня!');
end;

Результат:

IsPM в Delphi