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

Формат времени   Найти похожие ветки 

← →
Koala ©   (2004-09-16 15:13) [0]

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

---

← →
Amoeba ©   (2004-09-16 15:19) [1]

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

---

← →
Koala ©   (2004-09-16 15:26) [2]

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

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

---

← →
begin...end ©   (2004-09-16 15:30) [3]

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

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

---

← →
Amoeba ©   (2004-09-16 15:30) [4]

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

---

← →
VMcL ©   (2004-09-16 15:40) [5]

>>Koala ©  (16.09.04 15:13)

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

---

← →
Amoeba ©   (2004-09-16 15:43) [6]

> 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;

---

← →
Koala ©   (2004-09-16 15:51) [7]

>  [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;

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

---

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

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



Память: 0.46 MB
Время: 0.036 c