Определить, время сейчас до или после полудня

Delphi , Синтаксис , Дата и Время

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure AM_or_PM;
 begin
   if Frac(Time) = 0 then
     ShowMessage('AM')
   else
     ShowMessage('PM');
 end;

Программный код на Delphi: процедура AM_or_PM

Процедура AM_or_PM проверяет, является ли текущее время до или после полудня (12:00 PM). Вот шаг за шагом, что она делает:

1. Frac(Time) = 0: эта строка вычисляет дробную часть текущего времени с помощью функции Frac. В Delphi тип Time представляет собой целое число в секундах.
2. Если результат равен 0, это означает, что текущее время имеет целое количество часов (например, 12:00 PM). В этом случае процедура отображает сообщение "AM" с помощью ShowMessage.
3. Иначе, если дробная часть не равна 0, это означает, что текущее время после полудня (например, 13:45), и процедура отображает сообщение "PM".

В целом, этот код проверяет, является ли текущее время до или после полудня, и отображает соответствующее сообщение.

Альтернативное решение - использовать функцию Hour для получения часа дня (0-23) и затем проверять, меньше ли он 12 для AM или больше или равно 12 для PM:

procedure AM_or_PM;
begin
  if Hour(Time) < 12 then
    ShowMessage('AM')
  else
    ShowMessage('PM');
end;

Эта APPROACH проще и более эффективна, потому что она не требует вычисления дробной части времени.

Программный код на Delphi, определяющий время как "до полудня" (AM), если оно меньше половины суток, и "после полудня" (PM) в обратном случае.

Комментарии и вопросы

:: Главная :: Дата и Время ::