Страница: 1 |
Вопрос: Как посчитать время цикла? | Добавлено: 20.06.03 14:00 |
Автор вопроса: ![]() |
Короче, е меня в проге огромный по времени цикл. Как мне програмно определить сколько времени(в мс. или сек.)он длился? Заранее благодарен. |
Ответы | Всего ответов: 6 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 2 |
Профиль | Цитата | #1 | Добавлено: 20.06.03 16:36 |
Используй класс DATETIME. Присвой одной переменной время до цикла, выполни цикл, отнеми от текущего времени первое. |
Номер ответа: 2 Автор ответа: ![]() ![]() ICQ: 9481061 Вопросов: 18 Ответов: 132 |
Профиль | Цитата | #2 | Добавлено: 20.06.03 18:15 |
dim t as double t=timer for ............. next msgbox timer-t Время в секундах. |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 21.06.03 10:37 |
спасибо вввооооттт тттааакккооооееееееееее! всё работает! |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 173084484 Вопросов: 5 Ответов: 76 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 21.06.03 14:30 |
Хм... Глупость... Declare Function GetTickCount lib "kernel32" () as Long Dim NS as long '... NS = GetTickCount 'Цикл TimeSpent=GetTickCount - NS В TimeSpent будет время действия цикла в миллисекундах, кроме того! вызов GetTickCount запимает намного меньше времени, чем Time. |
Номер ответа: 5 Автор ответа: ![]() ![]() ICQ: 9481061 Вопросов: 18 Ответов: 132 |
Профиль | Цитата | #5 | Добавлено: 21.06.03 18:41 |
To univercal: Ну, да, очень здорово оптимизировал. Съэкономил какую-нибудь одну милионную секунды. А с функцией Timer результат точнее, т.к. выводится куча знаков после запятой. Если надо можно и в миллисекунды перевести. |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 22.06.03 06:17 |
Всё отлично! С Timer'ом всё получилось. Т.К мне суперточность не нужна пока, я его округлил. Очен благодарен за совет! |
Страница: 1 |
|