Скачать: CL | DM;

узнать сколько в n-минутах, часов, дней   Найти похожие ветки 

← →
Nikolaich   (2006-05-31 17:14) [0]

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

Спасибо.

---

← →
Desdechado ©   (2006-05-31 17:18) [1]

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

---

← →
Nikolaich   (2006-05-31 17:22) [2]

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

---

← →
Джо ©   (2006-05-31 17:24) [3]

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

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

---

← →
evvcom ©   (2006-05-31 17:25) [4]

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

---

← →
Nikolaich   (2006-05-31 17:25) [5]

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

---

← →
Nikolaich   (2006-05-31 17:33) [6]

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

---

← →
evvcom ©   (2006-05-31 17:34) [7]

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

---

← →
evvcom ©   (2006-05-31 17:34) [8]

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

---

← →
Джо ©   (2006-05-31 17:34) [9]

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

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

---

← →
Nikolaich   (2006-05-31 17:54) [10]

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

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

---

← →
Nikolaich   (2006-05-31 17:56) [11]

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

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

---

← →
begin...end ©   (2006-05-31 17:58) [12]

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 18:10) [13]

> begin...end ©

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c