Code:

{ **** UBPFD *********** by delphibase.endimus****

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

Возвращает целое число часов от начала суток.

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

Зависимости: System, SysUtils

Автор: savva, savvanm.ru, ICQ:126578975, Орел

Copyright: Сапронов Алексей (Savva)

Дата: 6 июня 2002 г.

***************************************************** }

function GetСurrentHour: integer;

begin

result := Round(Time * 24);

end;