Jak zjistit dobu, kterou trvá provedení příkazů nebo jak zjistit, který algoritmus je rychlejší?..

V tomto problému nám budiž oporou API funkce GetTickCount. Je to vnitřní čítač systému Windows. Obsahuje počet milisekund uplynulých od startu Woken. Využití je tedy jednoduché. Zjistíme tuto hodnotu před provedením příkazů. Potom ji zjistíme i po provedení příkazů, jejichž časovou náročnost chceme měřit a na závěr uděláme rozdíl těchto dvou hodnot.

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
    StartTime = GetTickCount
        Call Shell("cmd")
        DoEvents
    StopTime = GetTickCount
    Print (StopTime - StartTime)
End Sub

Kód výše se skládá z deklarace API funkce. Vyžadovaný proces je v proceduře Command1_Click. Kód začíná zjištěním hodnoty počítadla, pokračuje ve vykonávání příkazů, opět zjistí hodnotu počítadla a vytiskne jejích rozdíl.