| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужно определить количество часов заключенных в ТDATETIME [D6]
vitge © (2005-07-05 10:29:00)Мне нужно определить ко-во часов с минутами которые заключены в промежутке между двуму переменными типа TDATETIME. Заранее благодарен.
-=XP=- (2005-07-05 11:09:00) [1]Для справки: Minutes(англ.) - минуты, мн. ч.
-=XP=- (2005-07-05 11:07:00) [2]2 vitge ©
Вы будете удивлены, но это
function HoursBetween(const ANow, AThen: TDateTime): Int64;
из модуля DateUtils.
Anatoly Podgoretsky (2005-07-05 10:57:00) [3]Antonn © (05.07.05 10:51) [2]
Не, это не специальная функция, а извращение. Специальные функции находятся в библиотеки и их наличие зависит от версии Дельфи.
Antonn (2005-07-05 10:51:00) [4]строкой = formatdatetime('hh:nn',datetime2-datetime1);
часы = trunc(((datetime2-datetime1)-trunc(datetime2-datetime1))*24);
минуты = trunc(((datetime2-datetime1)-trunc(datetime2-datetime1))*1440);
ЗЫ Знаю, реализация просто потрясающая... :)
Anatoly Podgoretsky (2005-07-05 10:30:00) [5]Если не использовать специальный функций, то это D1 - D2
| |
