Přesné měření času

Ve Visual Basicu je několik způsobů, jak změřit plynutí času. Žádná z metod není ale příliš spolehlivá pro měření krátkých okamžiků. V těchto případech lze využít vnitřní počítadlo systému Windows. Systém Windows si v proměnné uchovávají počet milisekund od posledního spuštení systému. Toho můžeme snadno využít. Ke zjištení aktuální hodnoty počítadla se používá API funkce GetTickCount.

Příklad:

'Deklarace funkce:
Private Declare Function GetTickCount _
Lib "kernel32" () As Long


Private Sub Form_Click()
   Dim lTime1, lTime2, lTimLen, i
   Dim lRND, sTmp
   lTime1 = GetTickCount

   '...tady nejaké príkazy... např
   For i = 1 To 30000
     Randomize
     lRND = Rnd(200) + 32
     sTmp = sTmp & Chr(lRND)
   Next i
   
   lTime2 = GetTickCount
   lTimLen = lTime2 - lTime1

   Print "Provedení příkazu trvalo " & lTimLen & _
" milisekund, což je " & (lTimLen  1000) & " sekund"
End Sub