簡介
timeGetTime:函式以毫秒計的系統時間。該時間為從系統開啟算起所經過的時間。
VB 聲明
Declare Function timeGetTime Lib "winmm.lib" () As Long
返回值
以毫秒值返回系統時間。
參數
無參數
備註
該函式與
timeGetSystemTime函式的唯一不同是timeGetSystemTime函式使用MMTIME結構返回系統時間。TimeGetSystemTime比timeGetTime需要更多的
系統開銷。注意timeGetTime函式是一個雙字。這個值在0到2^32之間。大約49.71天。如果在代碼中直接將該值用於計算,會導致一些問題,特別是用該值來控制代碼的執行。一般利用兩個timeGetTime函式返回值的不同來用於計算。
Windows NT:該函式的時間精度是五毫秒或更大一些,這取決於機器的性能。可用timeBeginPeriod和timeEndPeriod函式提高timeGetTime函式的精度。如果使用了,連續調用timeGetTime函式,一系列返回值的差異由timeBeginPeriod和timeEndPeriod決定。QueryPerformanceCounter和QueryPerformanceFrequency函式用於解析度要求更高的時間測量。
Windows95 默認解析度是1毫秒,無論是否調用timeBeginPeriod和timeEndPeriod函式。
示例
VB 實現延時
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '該聲明得到系統開機到現在的時間(單位:毫秒)Public Function Sleep2(T As Long) Dim Savetime As Long Savetime = timeGetTime '記下開始時的時間 While timeGetTime < Savetime + T '循環等待 DoEvents '轉讓控制權 WendEnd Function'在要延時的地方調用Sleep2(15000) '延時15秒