IBM Lotus Symphony
|
Powoduje zwrócenie liczby taktów zegara na podstawie informacji z systemu operacyjnego. Dzięki tej funkcji możliwe jest zoptymalizowanie niektórych procesów.
GetSystemTicks()
Długa liczba całkowita
Sub Przyklad_Wait
Dim lTakty As Long
lTakty = GetSystemTicks()
wait 2000
lTakty = (GetSystemTicks() - lTakty)
MsgBox "" & lTakty & " taktów zegara" ,0,"Długość przerwy"
End Sub