函数原型:
DWORD GetTickCount(void);
VB版
VB声明:
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
例如:实现延时
Public Sub Sleep(numa As Long)
Dim num1 As Long
Dim num2 As Long
Dim numb As Long
numb = 0
num1 = GetTickCount
Do While numa - numb > 0
num2 = GetTickCount
numb = num2 - num1
DoEvents
Loop
End Sub
C++版
DWORD k=::GetTickCount(); //获取毫秒级数目
int se = k/1000; // se为秒
cout<<se<<endl;
库文件:kernel32.dll
C/C++头文件:winbase.h
