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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Dimon111
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 154
Зарегистрирован: 28.01.2008 (Пн) 22:11

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

Сообщение Dimon111 » 04.02.2008 (Пн) 11:16

Делаю так:

Код: Выделить всё
Private Sub Form_Load()           
elaps = Time
.
.

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




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

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

Спасибо.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 04.02.2008 (Пн) 11:22

60 секунд составляют минуту.
60 минут составляют час.
24 часа составляют сутки.
Lasciate ogni speranza, voi ch'entrate.

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 04.02.2008 (Пн) 11:23

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

Dimon111
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 154
Зарегистрирован: 28.01.2008 (Пн) 22:11

Сообщение Dimon111 » 04.02.2008 (Пн) 11:50

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

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

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

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

Спасибо.

Dimon111
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 154
Зарегистрирован: 28.01.2008 (Пн) 22:11

Сообщение Dimon111 » 04.02.2008 (Пн) 11:54

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

elaps As Variant

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

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 04.02.2008 (Пн) 15:54

Dimon111
Код: Выделить всё
Private elaps As Date
Весь мир матрица, а мы в нем потоки байтов!

Dimon111
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 154
Зарегистрирован: 28.01.2008 (Пн) 22:11

Сообщение Dimon111 » 04.02.2008 (Пн) 16:23

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

vpnacc
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 27.01.2008 (Вс) 1:31

Сообщение vpnacc » 10.02.2008 (Вс) 6:34

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 34

    TopList