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

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

узнать сколько в n-минутах, часов, дней [D7, XP]


Nikolaich ©   (2006-05-31 17:14:00) 

Приветсвую. Может кто знает как по-быстрому получить, к примеру из 1000 минут, сколько в них дней, часов и минут(до 60 минут) в нормальном виде. У меня исходный параметр это количество минут, мне нужно, так сказать в божеский вид привести это время.
Может где такая функция есть и я ее незнаю?

Спасибо.


Nikolaich   (2006-05-31 18:10:00) [1]


> begin...end ©

спасибо, так даже более рациональней :)


begin...end   (2006-05-31 17:58:00) [2]

var
 T: TDateTime;
 D: Integer;
 H, M, S, MS: Word;
begin
 T := 1000 / 60 / 24;
 D := Trunc(T);
 DecodeTime(T, H, M, S, MS)
end.


Nikolaich   (2006-05-31 17:56:00) [3]


> evvcom заоффтопил :) Ты же упорно искал готовую функцию,
>  не так ли?

ну а форум "для начинающих" или "для постебаться над новичками?"


Nikolaich   (2006-05-31 17:54:00) [4]


> а... так [5] не мне?

неа, это для Джо было :)


evvcom   (2006-05-31 17:34:00) [5]

"Слюшай, если ты такой умный, пачему такой бедный?" (с) не помню


evvcom   (2006-05-31 17:34:00) [6]

а... так [5] не мне?


Джо   (2006-05-31 17:34:00) [7]

> [6] Nikolaich   (31.05.06 17:33)
> evvcom ©
> Спасибо. Узнал что такое mod хоть ;) А другим тяжело было
> объяснить, лучше кучу всего написать, но не по делу.

evvcom заоффтопил :) Ты же упорно искал готовую функцию, не так ли?


Nikolaich   (2006-05-31 17:33:00) [8]

evvcom ©
Спасибо. Узнал что такое mod хоть ;) А другим тяжело было объяснить, лучше кучу всего написать, но не по делу.


evvcom   (2006-05-31 17:25:00) [9]

1000 mod 60 = 40 (минут)
1000 div 60 = 16 (часов)


Nikolaich   (2006-05-31 17:25:00) [10]

Заново изобретать велосипед? (с)


Джо   (2006-05-31 17:24:00) [11]

> [2] Nikolaich   (31.05.06 17:22)
> ага, ну давай попробуй, поглядим какого размера у тебя код
> получится. я тоже так вначале подумал.

Кода бояться — в программисты не ходить (с).


Nikolaich   (2006-05-31 17:22:00) [12]

ага, ну давай попробуй, поглядим какого размера у тебя код получится. я тоже так вначале подумал.


Desdechado   (2006-05-31 17:18:00) [13]

делить-умножать умеем?
24, 60, и т.п. еще в детсаду учат


Наверх

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