преобразование времени.

← →
Карлсон (2002-09-22 15:05) [0]

есть integer.
как его значение преобразовать в часы, минуты, секунды?

← →
Anatoly Podgoretsky (2002-09-22 15:15) [1]

В часе 60 минут, в минуте 60 секунд

← →
Cr@sh (2002-09-22 15:25) [2]

Какой формат записи?

← →
TTCustomDelphiMaster (2002-09-22 15:30) [3]

Карлсон © (22.09.02 15:05)

А как часы, минуты, секунды были преобразованы в integer знаете?

← →
Алексей Ким (2002-09-22 16:07) [4]

sec,hrs,min:integer;
sec:=1000; //твоё число
hrs := i div 3600;
i := i - hrs * 3600;
min := i div 60;
i := i - min * 60;
i-теперь секунды...
ЗЫ: ...в первом классе надо не мух ловить а часы учить

← →
TTCustomDelphiMaster (2002-09-22 16:31) [5]

Бывают и такие случаи 8:05:02 представленно как $00080502

← →
Anatoly Podgoretsky (2002-09-22 16:40) [6]

Так это
record s:byte; m:byte; h:byte; Extra:byte; end;

← →
Алексей Ким (2002-09-22 16:41) [7]

delete(str,0,1);
i := strtoint(...

← →
Алексей Ким (2002-09-22 16:42) [8]

блин не strtoint а copy

← →
Song (2002-09-22 17:26) [9]

FormatDateTime()

← →
Карлсон (2002-09-22 17:29) [10]

всем спасибо!
интегер никак не был преобразован.
просто я так считаю время работы моего приложения в одном из режимов.

← →
Карлсон (2002-09-22 17:51) [11]

че-то не работает:

procedure TForm1.Label1Click(Sender: TObject);
var
i: integer;
begin
i:=1000;
Label1.Caption:=FormatDateTime("tt",i);
end;

выдает все нули :(

← →
Song (2002-09-22 18:21) [12]

I должна быть типа TDateTime

← →
Карлсон (2002-09-22 19:08) [13]

procedure TForm1.Label1Click(Sender: TObject);
var
i: TDateTime;
begin
i:=1000;
Label1.Caption:=FormatDateTime("tt",i);
end;

всеравно не работает.
неужели я такой тупой?

← →
Song (2002-09-22 19:09) [14]

А что такое 1000?
И где Вы его взяли? 1000 дней и одна ночь? :-)

← →
Карлсон (2002-09-22 19:20) [15]

просто тысяча единиц.
есть таймер.
он постоянно, каждую секунду, добавляет к переменной одну единицу.
т.е. у меня получается время в секундах.

← →
Song (2002-09-22 19:22) [16]

А TTimer не использовать никак?

← →
Карлсон (2002-09-22 19:34) [17]

ок.
я снимаю вопрос с обсуждения.
уже нашел другой путь.

← →
TTCustomDelphiMaster (2002-09-22 19:43) [18]

Измерить интервал времени можно гораздо проще

procedure TForm1.Button1Click(Sender: TObject);
var
t: TDateTime;
begin
t := time(); // Start
sleep(5000);
t := t-time(); // End
Showmessage(formatdatetime("hh:mm:ss:zzz", t));
end;

преобразование времени. Найти похожие ветки