Как считать и хранить время работы программы?

← →
User9 (2005-12-25 00:14) [0]

Когда программа начинает выполнять какое-то действие нужно запомнить время с точьностью до секунд, посчитать сколько времени действие выполнялось, записать время в лог и при следующем запуске делать тоже самое. Чтобы можно было всегда знать сколько времени работала программа. Как проще это сделать? TDateTime дает дату и время, а мне нужны и минуты с секундами. И как их складывать?

← →
Джо © (2005-12-25 00:16) [1]

> TDateTime дает дату и время

TDateTime хранит даже миллисекунды.

← →
User9 (2005-12-25 00:19) [2]

А как его в моем случае использовать? Я честно читал хельп, но без примера трудно.

← →
Джо © (2005-12-25 00:27) [3]

Разбей задачу на составляющие, а то не понятно, о чем ты спрашиваешь. Ну, вот, например, функция Now возращает типа TDateTime, в котором хранится текущая на момент вызова отметка времени.

← →
Джо © (2005-12-25 00:29) [4]

> функция Now возращает типа TDateTime

функция Now возращает значение типа TDateTime

← →
User9 (2005-12-25 00:46) [5]

Ну, например, нажал кнопку, получил текущее время Now, затем нажал кнопку еще раз, опять получил текущее время. Надо узнать сколько прошло времени между кликами и сохранить его. Затем повторить клики и сложить сохраненное время с вновь полученым.
Я не понимаю как его складывать и в каких переменных хранить.

← →
SEN © (2005-12-25 01:42) [6]

Может так?
var T, T1: TDateTime; procedure TForm1.Button1Click(Sender: TObject); begin T := Time; end; procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption := TimeToStr(Time - T); end;

← →
Anatoly Podgoretsky © (2005-12-25 09:30) [7]

User9 (25.12.05 00:46) [5]
Разницу получают с помощью вычитания, а сумму с помощью сложения.

← →
alex_*** © (2005-12-25 12:21) [8]

а минус на минус дает плюс

Извините что влезаю 8) Но есть функция GetTickCount, которая возвращает кол-во милисекунд работы виндовз. Так вот если запомнить это значение в начале работы программы, а в конце отнять это значение от текущего, то узнаем сколько милисекунд работала программа 8) Надеюсь проблем с переводом из мс во что-то другое не будет 8)

← →
User9 (2005-12-25 14:14) [10]

> Разницу получают с помощью вычитания, а сумму с помощью
> сложения.
> а минус на минус дает плюс

Я про это слышал.

> есть функция GetTickCount, которая возвращает кол-во милисекунд
> работы виндовз.

Вот как-нибудь все это еще скомпоновать в строчки кода...
Я еще слышал что значение возвращаемое GetTickCount в какой-то момент обнуляется и начинается с нуля снова.
А как быть если общее время превысит год?

> Вот как-нибудь все это еще скомпоновать в строчки кода..
> .

// Начало программы b_time := GetTickCount; ... // Конец программы p_time := GetTickCount - b_time; // В p_time - кол-во мс работы программы

> Я еще слышал что значение возвращаемое GetTickCount в какой-
> то момент обнуляется и начинается с нуля снова.

Ну естественно. Число Cardinal тоже не бесконечное 8)

Как считать и хранить время работы программы? Найти похожие ветки