Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите функцию


widom ©   (2002-12-18 05:28:00) 

Подскажите функцию нахождения общего количества часов и минут между двумя датами.

Например между 10.12.2002 15:40 и 28.12.2002 16:00.

очень надо. :))


ЮЮ   (2002-12-18 09:30:00) [1]

Да какая разница, какая разница.
D2 - D1 = <количество целых суток в промежутке>,<часть неполных суток>

Общее количество часов в целых сутках
Round(Int(D2 - D1)) * 24
То что осталось в дробной части разобрать с помощью TTime;

T := Frac(D2 - D1);


widom   (2002-12-18 06:17:00) [2]

хороший пример..
А если разница в 2-3 месяца... тогда что ?


sask   (2002-12-18 06:10:00) [3]

См. DateUtils.pas
(DayBetween, HoursBetween и т.д.)


ЮЮ   (2002-12-18 06:10:00) [4]

А может ещё и компонент нужен? :-)
D2-D1 = D, целая часть которого - количество суток, а дробная - TTime. А дальше извлекай что хочешь, хоть недели, хоть милисекунды.


Наверх

Титульная страница Поиск, карта сайта Написать письмо