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

[Dimon111]

Делаю так:

Код: Выделить всё

Private Sub Form_Load()           
elaps = Time
.
.

Private Sub Timer1_Timer()
ElapsTime.Caption = "Время работы: " & Timer - elaps
.
.



Получаю:
Время работы: 40869,96

Как получить именно время?

Спасибо.

[alibek]

60 секунд составляют минуту.
60 минут составляют час.
24 часа составляют сутки.

[Viper]

Timer возвращает количество секунд от полуночи, Time возвращает время в формате Date, почему ты вычитаешь одно из другого?

[Dimon111]

Да, неправ был.

Time - elaps помогло. Но надо выводить так:

Format(Time - elaps, "hh:mm:ss")

Без Format выводит пустую строку.

Спасибо.

[Dimon111]

Для корректной работы в General Declarations надо прописать

elaps As Variant

Variant мне не очень нравится. Как будет правильно? String?

[Viper]

Dimon111

Код: Выделить всё

Private elaps As Date

[Dimon111]

Спасибо. Подходит.

[vpnacc]

если это скоротечные замеры, то Timer поможет
но лучше используй GetTickCount