jonadv / vba-benchmark Goto Github PK

Hi @jonadv , thanks for a very useful piece of work.
Have a couple of questions (of which this is the first) assuming you are still developing this...

I get a compile error with the conditional directives (32bit lines below). Not a problem for me as I'm running on 64 bit system so I just rem them out, but wondering what the cause would be?

#If VBA7 Then   '64 bit
    Private Declare PtrSafe Function QueryPerformanceCounter Lib "kernel32" (stamp As Currency) As Byte
    Private Declare PtrSafe Function QueryPerformanceFrequency Lib "kernel32" (freq As Currency) As Byte
#Else           '32 bit
    Private Declare Function QueryPerformanceCounter Lib "kernel32" (stamp As Currency) As Byte
    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (freq As Currency) As Byte
#End If

Hello,

Thanks for creating this Benchmark for VBA! I would use it, but I can't, since the license is missing.
Please add a license file :)

Thanks!

'REMARK:
'when using VBA-Benchmark = cBenchmark.bas
'you need to change "QuickSort" with "QuickSortArray"
'in line 720 + 721

If (inLow < tmpHi) Then QuickSortArray vArray, inLow, tmpHi
If (tmpLow < inHi) Then QuickSortArray vArray, tmpLow, inHi

instead of
If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi