Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/gist:1ecc73a81b89faa5830f0d4bdca7f43d

Created November 29, 2018 11:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DuongAQ/1ecc73a81b89faa5830f0d4bdca7f43d to your computer and use it in GitHub Desktop.
Save DuongAQ/1ecc73a81b89faa5830f0d4bdca7f43d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#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