请教！如何计算两个毫秒级的时间差？

sxgaobo

[时间1]-[时间2]=XX 小时 XX 分 XX 秒 XX 毫秒

roych

Access没法精确到毫秒。貌似要引用API，测试代码如下：

1. Private Declare Function timeGetTime Lib "winmm.dll" () As Long '32位系统
   
2. 'Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long '64位系统
   
3. 
   
4. Sub GetMillisecond()
   
5.     Dim t1 As Long, t2 As Long, t3 As Date, t4 As Date
   
6.     Dim i As Long
   
7.     t1 = timeGetTime() '获取当前毫秒数
   
8.     t3 = Now()
   
9.     Debug.Print "t1=" & t1 & "，当前时间为：" & t3
   
10.     'Application.Wait Now + TimeValue("0:00:01")  '等待一秒
    
11.     For i = 1 To 10
    
12.         Debug.Print i
    
13.     Next
    
14.     t2 = timeGetTime() '再次获取当前毫秒数
    
15.     t4 = Now()
    
16.     Debug.Print "t2=" & t2 & "，当前时间为：" & t4
    
17.     Debug.Print "t2-t1=" & (t2 - t1) '计算两次获取之间的差值
    
18. End Sub

复制代码

测试结果可以看到t3和t4的时间都是一样的（15:42:10），但t2和t1是有些差异的。

sxgaobo

谢谢了！我试试啊