Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.03 c
14-1095006092
saNat
2004-09-12 20:21
2004.10.03
Rave Report


14-1095136210
Tiam
2004-09-14 08:30
2004.10.03
Что вы об этом думаете?


9-1086760482
*John*1987*
2004-06-09 09:54
2004.10.03
Delphix для Delphi6


4-1093534480
TUser
2004-08-26 19:34
2004.10.03
Меню


14-1095342975
Константинов
2004-09-16 17:56
2004.10.03
Сроду не догадаетесь!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский