Получение целого числа часов от начала суток

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

Автор: Savva
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение целого числа часов от начала суток

Возвращает целое число часов от начала суток.
Пример: для "11:25:00" будет возвращено значение "11"

Зависимости: System, SysUtils
Автор:       savva, savva@nm.ru, ICQ:126578975, Орел
Copyright:   Сапронов Алексей (Savva)
Дата:        6 июня 2002 г.
***************************************************** }

function GetСurrentHour: integer;
begin
  result := Round(Time * 24);
end;

Простой и полезный функционал Delphi!

Функция GetСurrentHour возвращает текущий час дня в виде целочисленного значения, диапазон которого составляет от 0 до 23. Вот что она делает:

1. Переменная Time используется для получения текущего времени.
2. Функция Round применяется к результату умножения на 24, эффективно конвертируя время из дробной части (например, 11,25) в целочисленное значение, представляющее часы дня.

Например, если текущее время равно "11:25:00", умножение дает результат 283,75 (11,25 * 24). Функция Round затем округляет это значение до ближайшего целого числа, что в этом случае будет 283. Поскольку час дня имеет только 24 значения, мы можем безопасно взять остаток от деления 283 на 24, чтобы получить соответствующий час: 11.

Вот альтернативное реализация с использованием целочисленной арифметики:

function GetСurrentHour: integer;
begin
  result := (Time * 24) trunc;
end;

В этом варианте умножение выполняется первым, а затем функция trunc используется для отбрасывания дробной части результата, эффективно округляя вниз до ближайшего целого числа. Этот подход может быть чуть быстрее, чем использовать функцию Round.

В целом, обе реализации достигают одного и того же цели: возвращения текущего часа в виде целочисленного значения. Выбор между ними зависит от личных предпочтений и конкретных требований.

Функция GetCurrentHour возвращает целое число часов от начала суток, округляя результат времени в формате "hh mm ss" до ближайшего целого числа.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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