powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать секундомер ?
8 сообщений из 8, страница 1 из 1
Как сделать секундомер ?
    #32699817
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как сделать секундомер ?
Нужно определить время в течении которого выполняется запрос к SQL-server, подскажите, пож-та, как по уму это сделать?
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32699826
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотри в конфе по сиквелу - там профайлером часто пользуются
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32699839
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Забыл уточнить, это из под Аксеса.
Я имел ввиду как организовать секундомер на VBA ?
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32699878
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну например запусти запрос в цикле - 10/100/1000 раз по ситуации
при этом точности хватит с запасом
Код: plaintext
1.
2.
3.
4.
5.
6.
?time
 13 : 51 : 58  
?time
 13 : 52 : 05  
?time
 13 : 52 : 12  
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32699885
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
объяви в модуле формы
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

а результат возьми так

Dim t As Long
t = timeGetTime
---процесс
MsgBox timeGetTime - t
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32699974
Kwazimoda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ищобъяви в модуле формы
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
а результат возьми так
Dim t As Long
t = timeGetTime
---процесс
MsgBox timeGetTime - t
Результат получается в виде какой-то хрени 174221, a как это перевести в такой формат минуты:секунды ?
А чем лучше эта функция от просто Time или Now ?
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32700063
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1 дели на 1000 и на 60
будут тебе сек и мин
2 лучше тем,что считает миллисек(см MSDN) не надо многократных прогонов запроса
Билл
timeGetTime
The timeGetTime function retrieves the system time, in milliseconds. The system time is the time elapsed since Windows was started.

DWORD timeGetTime(VOID);
Parameters
This function does not take parameters.

Return Values
Returns the system time, in milliseconds.
...
Рейтинг: 0 / 0
Как сделать секундомер ?
    #32700264
Евгений12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или так...
Код: plaintext
1.
2.
3.
4.
Dim t As Double
t = Timer
 'Процесс... 
t = (Timer - t) *  1000 
MsgBox "Время в миллисек.: " & t
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать секундомер ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]