Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

преобразование времени. [D6, Win95/98]

Карлсон © (2002-09-22 15:05:00)
есть integer.
как его значение преобразовать в часы, минуты, секунды?

TTCustomDelphiMaster (2002-09-22 19:43:00) [1]
Измерить интервал времени можно гораздо проще

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;

Карлсон (2002-09-22 19:34:00) [2]
ок.
я снимаю вопрос с обсуждения.
уже нашел другой путь.

Song (2002-09-22 19:22:00) [3]
А TTimer не использовать никак?

Карлсон (2002-09-22 19:20:00) [4]
просто тысяча единиц.
есть таймер.
он постоянно, каждую секунду, добавляет к переменной одну единицу.
т.е. у меня получается время в секундах.

Song (2002-09-22 19:09:00) [5]
А что такое 1000?
И где Вы его взяли? 1000 дней и одна ночь? :-)

Карлсон (2002-09-22 19:08:00) [6]
procedure TForm1.Label1Click(Sender: TObject);
var
i: TDateTime;
begin
i:=1000;
Label1.Caption:=FormatDateTime("tt",i);
end;

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

Song (2002-09-22 18:21:00) [7]
I должна быть типа TDateTime

Карлсон (2002-09-22 17:51:00) [8]
че-то не работает:

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

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

Карлсон (2002-09-22 17:29:00) [9]
всем спасибо!
интегер никак не был преобразован.
просто я так считаю время работы моего приложения в одном из режимов.

Song (2002-09-22 17:26:00) [10]
FormatDateTime()

Алексей Ким (2002-09-22 16:42:00) [11]
блин не strtoint а copy

Алексей Ким (2002-09-22 16:41:00) [12]
delete(str,0,1);
i := strtoint(...

Anatoly Podgoretsky (2002-09-22 16:40:00) [13]
Так это
record s:byte; m:byte; h:byte; Extra:byte; end;

TTCustomDelphiMaster (2002-09-22 16:31:00) [14]
Бывают и такие случаи 8:05:02 представленно как $00080502

Алексей Ким (2002-09-22 16:07:00) [15]
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 15:30:00) [16]
Карлсон © (22.09.02 15:05)

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

Cr@sh (2002-09-22 15:25:00) [17]
Какой формат записи?

Anatoly Podgoretsky (2002-09-22 15:15:00) [18]
В часе 60 минут, в минуте 60 секунд

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »