forum.boolean.name - Отображения часов.

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Отображения часов. (http://forum.boolean.name/showthread.php?t=12188)

Dimon

14.03.2010 18:07

Отображения часов.

Если брать стандартным способом

Цитата:

TimeText := 'Время - ' + GetHour(Time);
TimeText := TimeText + ':'+ GetMinute(Time);
DrawText(TimeText,50,100);

То если минуты начитнаются с 0, то он не будет показываться, что не очень прикольно смотрится. т.е. вместо 12:02 прога покажет 12:2. Можно ли как нибудь исправить это, чтобы врмеся показывалось полностью, с нулями?

GRAY_WOLF

14.03.2010 19:46

Ответ: Отображения часов.

PHP код:


		
			
Procedure Vremya;

        var 

    time: integer; 

    s: string; 

begin 

    time := GetCurrentTime; 

    s :=''+ GetDay(time)+ '_'+(GetMonth(time)+1)+ '_'+GetYear(time)+'   ';

     if GetHour(time) <10 then s :=s+ ' '+ GetHour(time)+':';else s :=s+''+GetHour(time)+':';

    

    if GetMinute(time) <10 then s:=s+'0'+GetMinute(time);else s:=s+''+GetMinute(time);// то что тебе нужно

   

    Font(0);DrawString(s, wi/2 - textwidth(s)/2, 47);

    Repaint; 

    end;

100% рабочий код. День, месяц, год, время.

DIMMON4IK

14.03.2010 19:47

Ответ: Отображения часов.

Можно
if GetMinute(Time)<10 then min:='0'+integertostring(GetMinute(Time)) else min:='0'+integertostring(GetMinute(Time));
И так далее

_____
Упс, уже ответили

Часовой пояс GMT +4, время: 08:33.