Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
Вниз
преобразование времени. Найти похожие ветки
← →
Карлсон (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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c
