Текущий архив: 2004.10.03;
Скачать: 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 вся ветка
Текущий архив: 2004.10.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.028 c
