TimeStartSO

Private Declare Function osQueryPerformanceCounter _
Lib "Kernel32" Alias "QueryPerformanceCounter" _
(lpPerformanceCount As Currency) As Long
Private Declare Function osQueryPerformanceFrequency _
Lib "Kernel32" Alias "QueryPerformanceFrequency" _
(lpFrequency As Currency) As Long
Public Function vbTimer() As Single
Dim varX As Variant, varY As Variant
osQueryPerformanceFrequency varX
osQueryPerformanceCounter varY
vbTimer = varY / varX
End Function
Con sole due API e' possibile ottenere con estrema
precisione il numero di secondi passati dall'avvio del
Sistema Operativo: