函数以毫秒计的系统时间。该时间为从系统开启算起所经过的时间。
函数以毫秒计的系统时间。该时间为从系统开启算起所经过的时间。
timeGetTime:函数以毫秒计的系统时间。该时间为从系统开启算起所经过的时间。
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 Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'系统执行挂起一段时间延时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 '循环等待 call sleep(1)'解决卡顿的同时降低CPU占用率 DoEvents '转让控制权 WendEnd Function'在要延时的地方调用Sleep2(15000) '延时15秒