Формат времени

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

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

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

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

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