Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Преобразование 267 минут в 4:45 [D7, WinXP]

Zif © (2004-11-21 13:15:00)
Подскажите такую вещь: как из формата минут преобразовать в формат час:минуты ? например:
время фильма:

267 (минут)

или:

4:45

Zif (2004-11-21 14:00:00) [1]
Удалено модератором

Zif (2004-11-21 14:00:00) [2]
//А не так следующее, 267 минут у него то 4:45 то 4:47, когда на самом деле 4:27

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

Zif (2004-11-21 13:58:00) [3]
Спасибо большое, все получилось, просто нужно было испытать..

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

Anatoly Podgoretsky (2004-11-21 13:58:00) [4]
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'

begin...end (2004-11-21 13:52:00) [5]

> [14] Zif © (21.11.04 13:50)

Что-то не так?

Zif (2004-11-21 13:50:00) [6]
например Label2.Caption - 267 минут
Label3.caption - 4:47

begin...end (2004-11-21 13:48:00) [7]

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

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

Новичек (2004-11-21 13:46:00) [8]
Хех, сударь, да откуда ж известно, где ты эти самые данные брать будешь?

Zif (2004-11-21 13:45:00) [9]
а можно поподробнее? где записывать "данные берутся отсюда" и "отображаются здесь?"

begin...end (2004-11-21 13:40:00) [10]

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

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

Новичек (2004-11-21 13:39:00) [11]
А чем плох пример, приведенный begin...end?

Anatoly Podgoretsky (2004-11-21 13:36:00) [12]
begin...end © (21.11.04 13:26) [6]
Ну я же указал, что в сутках 1440 минут

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

begin...end (2004-11-21 13:26:00) [14]

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

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

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

Anatoly Podgoretsky (2004-11-21 13:22:00) [15]
begin...end © (21.11.04 13:21) [3]
А TimeToStr не хочешь воспользоваться?

Anatoly Podgoretsky (2004-11-21 13:21:00) [16]
Zif © (21.11.04 13:15)
Тогда надо писать 4,45

begin...end (2004-11-21 13:21:00) [17]

> 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:20:00) [18]
Zif © (21.11.04 13:15)
Только 267 минут равно 4:27Б а не 4:45

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

Новичек (2004-11-21 13:17:00) [19]
Может, попробовать разделить минуты на 60?

Наверх

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