Instantly share code, notes, and snippets.

Embed
What would you like to do?
#1: Nếu dùng VBA phiên bản 7 thì copy đoạn code sau:
Private Declare PtrSafe Function getFrequency Lib "kernel32" Alias _
"QueryPerformanceFrequency" (cyFrequency As Currency) As Long
Private Declare PtrSafe Function getTickCount Lib "kernel32" Alias _
"QueryPerformanceCounter" (cyTickCount As Currency) As Long
#2: Nếu dùng VBA các phiên bản khác thì copy đoạn code sau:
Private Declare Function getFrequency Lib "kernel32" Alias _
"QueryPerformanceFrequency" (cyFrequency As Currency) As Long
Private Declare Function getTickCount Lib "kernel32" Alias _
"QueryPerformanceCounter" (cyTickCount As Currency) As Long
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment