IBM Lotus Symphony
|
Vracia počet taktov systému poskytnutý operačným systémom. Túto funkciu môžete použiť na optimalizáciu určitých procesov.
GetSystemTicks()
Typ Long
Sub Príkaz_Wait
Dim lTick ako typ Long
lTick = GetSystemTicks()
wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " taktov" ,0,"Prestávka trvala"
End Sub