Получение целого числа часов от начала суток
Falk0ner, вс, 06/07/2008 - 15:34.
Получение целого числа часов от начала суток
{ **** UBPFD *********** by delphibase.endimus.com ****
>>
Возвращает целое число часов от начала суток.
Пример: для "11:25:00" будет возвращено значение "11"
Зависимости: System, SysUtils
Автор: savva, <a href="mailto:savva@nm.ru">savva@nm.ru</a>, ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 6 июня 2002 г.
***************************************************** }
function GetСurrentHour: integer;
begin
result := Round(Time * 24);
end;
>>
Возвращает целое число часов от начала суток.
Пример: для "11:25:00" будет возвращено значение "11"
Зависимости: System, SysUtils
Автор: savva, <a href="mailto:savva@nm.ru">savva@nm.ru</a>, ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 6 июня 2002 г.
***************************************************** }
function GetСurrentHour: integer;
begin
result := Round(Time * 24);
end;
Отправить комментарий