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

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

Формат времени [D6]

Koala ©   (2004-09-16 15:13:00) 

Мне необходимо вывести на печать время в формате 345:05 Как задать формат времени, если время превышает 23:59:59

---

Koala   (2004-09-16 15:51:00) [1]

>  [6] Amoeba ©   (16.09.04 15:43)
>
> > VMcL ©   (16.09.04 15:40) [5]
> Тогда уж так:
> function FmtHM(const Minutes: LongWord): String;
> begin
> Result := Format('%u:%.2u' , [Minutes div 60, Minutes mod
> 60]);
> end;

Огромное спасибо всем!!!! Пол-лу-чи-лось!!!

---

Amoeba   (2004-09-16 15:43:00) [2]

> VMcL ©   (16.09.04 15:40) [5]


Тогда уж так:
function FmtHM(const Minutes: LongWord): String;
begin
Result := Format('%u:%.2u' , [Minutes div 60, Minutes mod 60]);
end;

---

VMcL   (2004-09-16 15:40:00) [3]

>> Koala ©  (16.09.04 15:13)

function FmtHM(const Minutes: LongWord): String;
begin
 Result := Format('%.2u:%.2u' , [Minutes div 60, Minutes mod 60]);
end;

---

begin...end   (2004-09-16 15:30:00) [4]

> получается  345:5 , а мне необходимо 345:05

И в чём проблема? Если меньше 10, то впереди нолик добавляем.

---

Amoeba   (2004-09-16 15:30:00) [5]

Дополняй минуты слева нулями до длины 2. Код, естественно, усложнится.

---

Koala   (2004-09-16 15:26:00) [6]

У меня время хранится в минутах а затем в поле OnCalc отображается по функции:
{**********************************************************
*  Description: **********************************************************}
function TextHour(Minut : Integer) : String;
begin
 Result := IntToStr(Minut div 60) + ':' + IntToStr(Minut mod 60);
end;

получается  345:5 , а мне необходимо 345:05

---

Amoeba   (2004-09-16 15:19:00) [7]

Только путем форматирования вручную.

---

Наверх