GetSystemTicks Function

བཀོལ་སྤྱོད་པ་རིམ་ལུགས་ཀྱིས་བྱིན་མི་རིམ་ལུགས་བདེན་རྟགས་ཚུ་གི་ཨང་དེ་སླར་ལོགཔ་ཨིན། ཁྱོད་ཀྱིས་འ་ནི་ལས་འགན་ངེས་ཅན་བྱ་སྒོའི་ལམ་ལུགས་ཚུ་ལེགས་ལྡན་བཟོ་འགྲུབ་ལུ་ལག་ལེན་འཐབ་བཏུབ་ཨིན།

ཚིག་སྦྱོར:

GetSystemTicks()

གནས་གོང་སླར་ལོག:

Long

དཔེར་བརྗོད:

Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    འཕྲིན་དོན་སྒྲོམ "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub