Office中国论坛/Access中国论坛
标题:
请教！如何计算两个毫秒级的时间差？
[打印本页]
作者:
sxgaobo
时间:
2023-3-3 11:28
标题:
请教！如何计算两个毫秒级的时间差？
[时间1]-[时间2]=XX 小时 XX 分 XX 秒 XX 毫秒
作者:
roych
时间:
2023-3-3 15:44
Access没法精确到毫秒。貌似要引用API，测试代码如下：
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '32位系统
'Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long '64位系统
Sub GetMillisecond()
Dim t1 As Long, t2 As Long, t3 As Date, t4 As Date
Dim i As Long
t1 = timeGetTime() '获取当前毫秒数
t3 = Now()
Debug.Print "t1=" & t1 & "，当前时间为：" & t3
'Application.Wait Now + TimeValue("0:00:01") '等待一秒
For i = 1 To 10
Debug.Print i
Next
t2 = timeGetTime() '再次获取当前毫秒数
t4 = Now()
Debug.Print "t2=" & t2 & "，当前时间为：" & t4
Debug.Print "t2-t1=" & (t2 - t1) '计算两次获取之间的差值
End Sub
复制代码
测试结果可以看到t3和t4的时间都是一样的（15:42:10），但t2和t1是有些差异的。
[attach]64463[/attach]
作者:
sxgaobo
时间:
2023-3-3 16:26
谢谢了！我试试啊
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3
谢谢了！我试试啊