Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
Attribute VB_Name = "Module1"Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As LongPublic Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As LongPublic Type LARGE_INTEGER lowpart As Long highpart As LongEnd Type
Public Function getSecondsDifference(tstStart As LARGE_INTEGER, tstEnd As LARGE_INTEGER) As Double Dim liFreq As LARGE_INTEGER Dim dResult As Double Call QueryPerformanceFrequency(liFreq)
dResult = (tstEnd.highpart * 2 ^ 32 + tstEnd.lowpart) - (tstStart.highpart * 2 ^ 32 + tstStart.lowpart)
getSecondsDifference = dResult / (liFreq.highpart * 2 ^ 32 + liFreq.lowpart)
End Function
|
