Кружок нубов(Вопрос-Ответ)

		CoderX :: Forums > Lineage II > L2PacketHack
Кружок нубов(Вопрос-Ответ)

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Сообщение...	Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.

Опции темы

Опции просмотра

Предыдущее

Следующее

25.07.2009, 14:11

#11

Yegor

Местный

Регистрация: 05.04.2009

Сообщений: 1,436

Сказал Спасибо: 306

Имеет 122 спасибок в 98 сообщенях

TAMBIK, вот написал:

delphi Код:

function MsekToString(msek: integer): string;
var
  min, sek: string;
begin
  msek:= msek div 1000;
  min:= IntToStr(msek div 60);
  sek:= IntToStr(msek mod 60);
  if Length(min) = 1 then min:= '0' + min;
  if Length(sek) = 1 then sek:= '0' + sek;
  Result:= min + 'мин ' + sek + 'сек';
end;

За это сообщение Yegor нажился 2 спасибками от:

NLObP, TAMBIK

« Предыдущая тема | Следующая тема »

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB коды Вкл. Смайлы Вкл. [IMG] код Вкл. HTML код Выкл.

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