Из времени вычесть время работы

@hacker_007 · Регистрация: 15.09.2011

Author24 — интернет-сервис помощи студентам

Время работы получаю так:

Delphi

function TimeWorks: String;
var
  Hours,
  Minutes,
  TheLength,
  Seconds: Integer;
begin
  TheLength:=GetTickCount;
  Hours:=TheLength div 3600000;
  Minutes:=(TheLength mod 3600000) div 60000;
  Seconds:=((TheLength mod 3600000) mod 60000)div 1000;
  result := IntToStr(Hours) + ' часов ' + IntToStr(Minutes) + ' минут(ы) ' + IntToStr(Seconds) + ' секунды.';
end;

Нашел на вашем форуме. Все работает отлично.
А как мне из времени FormatDateTime('HH.MM.SS', Now) вычесть время работы, чтобы узнать время запуска?

@antikiler_ · 25.08.2012, 18:05

А не проще, сразу при запуске программы получить время, использовать обработчик события onCreate

Delphi

var
  Form1:TForm1;
 d1 : TDatatime;
........
 
procedure TForm1.FormCreate(Sender: TObject);
begin
d1:=now;
end;
.........
//вывод
caption:= 'Время запуска '+FormatDateTime('HH.MM.SS', d1);
............

@hacker_007 · 25.08.2012, 18:10 **[ТС]**

На данный момент у меня так и есть.... Запись идёт только при старте программы.... Погрешност будет от нескольких секунд до минуты..... от железа зависимо...

Добавлено через 2 минуты
А хотя.... Это не так уж и важно...

@hacker_007 191 / 29 / 8 Регистрация: 15.09.2011 Сообщений: 430
	25.08.2012, 18:10 [ТС]	3
	На данный момент у меня так и есть.... Запись идёт только при старте программы.... Погрешност будет от нескольких секунд до минуты..... от железа зависимо... Добавлено через 2 минуты А хотя.... Это не так уж и важно... 0