Binaryworld - Benchmarks with millisecond accuracy ... [ VB -> Date-Time ]

The Timer function returns a value which is only accurate to about 55 milliseconds, therefore it is not very useful for doing accurate benchmarks. If you need a better resolution you may try out this function:

Click here to copy the following block

Private Type SMPTE
  hour As Byte
  min As Byte
  sec As Byte
  frame As Byte
  fps As Byte
  dummy As Byte
  pad(2) As Byte
End Type
Private Type MMTIME
  wType As Long
  units As Long
  smpteVal As SMPTE
  songPtrPos As Long
End Type
Private Declare Function timeGetSystemTime Lib "winmm.dll" (lpTime As MMTIME, _
  ByVal uSize As Long) As Long

' return the current system time (in milliseconds)

Function GetCurrentTime() As Long
  ' assign this value to wType field to
  ' specify time measurement in milliseconds
  Const TIME_MS = 1
  Dim mmt As MMTIME
  mmt.wType = TIME_MS
  timeGetSystemTime mmt, LenB(mmt)
  GetCurrentTime = mmt.units
End Function