关于timer实现计时的功能！！在线等

Question

在程序进行长时间过程操作时，比如导入数据时，显示消耗的时间
从零开始计时，计时所需时间，如何实现，拜托各位

Answer 1

不用Timer，在开始的时候debug.print now，在结束的时候debug.print now，在立即窗口里显示出来的两个时间之差就是所用的时间

Answer 2

dim sngStart as single
dim sngEnd as single
.....
sngStart=timer
导入的代码
sngEnd=timer
msgbox "共用了" & sngStart-sngEnd & "秒"
.....

Answer 3

应该用API
timegettime之类的会更好

Answer 4

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub Mysub()
dim TimeCost
TimeCost=timeGetTime
...      '你的代码
...
...
...
TimeCost=(timeGetTime-TimeCost)/1000
MsgBox "运算耗时：" & TimeCost & "秒"
End Sub