Измерение времени точнее чем Winapi::getTickcount()

[Logger]

Цитата:

Сообщение от Alex_KD

А какую ошибку выдает?



http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Цитата:

Функция "QueryPerformanceCounter" в библиотеке DLL "KERNEL32" привела к возникновению исключения.

Этот код в принципе не должен работать на 64-битном аосе при выполнении на сервере.

[Alex_KD]

Почему?

То что приписка 32 на конце, на сколько я понимаю, не означает что это 32 bit DLL.
32 bit dll нильзя загрузить на 64 битной винде.

Попробуйте такой макрос в Екселе запустить:
Если чтото выплюнит на лист - значит все работает.

ЗЫ У меня на 64битной ОС это работает. Подозреваю, что на надо было offset переменные трогать.

Цитата:

Option Explicit

Declare Function QueryPerformanceCounter Lib "Kernel32" _
(X As Currency) As Boolean
Declare Function QueryPerformanceFrequency Lib "Kernel32" _
(X As Currency) As Boolean

Sub Test_Timers()
Dim Ctr1 As Currency, Ctr2 As Currency, Freq As Currency
Dim Count1 As Long, Count2 As Long, Loops As Long
'
' Time QueryPerformanceCounter
'
If QueryPerformanceCounter(Ctr1) Then
QueryPerformanceCounter Ctr2
Range("B10").FormulaR1C1 = Ctr1
Range("B11").FormulaR1C1 = Ctr2


QueryPerformanceFrequency Freq
Range("B12").FormulaR1C1 = (Ctr2 - Ctr1) / Freq
Else
Range("B10").FormulaR1C1 = "High-resolution counter not supported."
End If

End Sub