Преобразование 267 минут в 4:45

← →
Zif © (2004-11-21 13:15) [0]

Подскажите такую вещь: как из формата минут преобразовать в формат час:минуты ? например:
время фильма:

267 (минут)

или:

4:45

← →
Новичек (2004-11-21 13:17) [1]

Может, попробовать разделить минуты на 60?

← →
Anatoly Podgoretsky © (2004-11-21 13:20) [2]

Zif © (21.11.04 13:15)
Только 267 минут равно 4:27Б а не 4:45

Новичек (21.11.04 13:17) [1]
Много проще, в сутках 1440 минут

← →
begin...end © (2004-11-21 13:21) [3]

> Zif © (21.11.04 13:15)

var Source: Integer; Res: String; begin Source := 267; Res := Format("%d:%d", [Source div 60, Source mod 60]) end.

← →
Anatoly Podgoretsky © (2004-11-21 13:21) [4]

Zif © (21.11.04 13:15)
Тогда надо писать 4,45

← →
Anatoly Podgoretsky © (2004-11-21 13:22) [5]

begin...end © (21.11.04 13:21) [3]
А TimeToStr не хочешь воспользоваться?

← →
begin...end © (2004-11-21 13:26) [6]

> [5] Anatoly Podgoretsky © (21.11.04 13:22)

> А TimeToStr не хочешь воспользоваться?

Каким образом?

← →
Zif © (2004-11-21 13:31) [7]

это пример!!!
на самом деле данные будут браться из базы данных и соответственно каждый раз будет новое значение
можно ли это отобразить одной строкой?
например что-то вроде Label2.Caption:=TimeToStr(Edit.Caption) ?
это очень грубый пример!!!

← →
Anatoly Podgoretsky © (2004-11-21 13:36) [8]

begin...end © (21.11.04 13:26) [6]
Ну я же указал, что в сутках 1440 минут

← →
Новичек (2004-11-21 13:39) [9]

А чем плох пример, приведенный begin...end?

← →
begin...end © (2004-11-21 13:40) [10]

> [8] Anatoly Podgoretsky © (21.11.04 13:36)

И правда... Но мы лёгких путей не ищем :-)

← →
Zif © (2004-11-21 13:45) [11]

а можно поподробнее? где записывать "данные берутся отсюда" и "отображаются здесь?"

← →
Новичек (2004-11-21 13:46) [12]

Хех, сударь, да откуда ж известно, где ты эти самые данные брать будешь?

← →
begin...end © (2004-11-21 13:48) [13]

> [11] Zif © (21.11.04 13:45)

Label2.Caption := TimeToStr(StrToFloat(Edit.Text) / 1440)

например Label2.Caption - 267 минут
Label3.caption - 4:47

begin...end © (21.11.04 13:52) [15]
А не так следующее, 267 минут у него то 4:45 то 4:47, когда на самом деле 4:27
Придется использовать Random для формирования результата
if Random > 0.5 then Label3.caption := "4:45" else Label3.caption := "4:47"

Спасибо большое, все получилось, просто нужно было испытать..

Если кому интересно, вот что получилось:
Label26.Caption:=TimeToStr(StrToFloat(DataModule1.ADODataSetMainTime.Text) / 1440)

//А не так следующее, 267 минут у него то 4:45 то 4:47, когда на самом деле 4:27

ну ошиюся, бывает...

Удалено модератором

Преобразование 267 минут в 4:45 Найти похожие ветки