Функция 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
IsPM в Delphi

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (14 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий