如何计算运行按钮所花费的时间

zhaokuo

以一个简单的做加法程序为例，我想显示出开始运行的时间，结束运行程序的时间，以及计算出运行程序所花费的时间。
我这样写倒是可以运行出结果，但是每次点击按钮 ，计算结果都是不一样的，请问是什么原因呢？

代码如下：
Sub test()
Dim a, b, c
Dim d, e, f
d = Timer '运行程序的开始时间

    a = Cells(1, 1).Value
    b = Cells(1, 2).Value
    c = a + b
    Cells(1, 3) = c

e = Timer '运行程序的结束时间
f = e - d '运行程序所花费的时间
Cells(2, 1) = d
Cells(3, 1) = e
Cells(4, 1) = f
End Sub

aman1516

Sub test()
'代码最前面：
t=timer
'运行代码
'代码最后面：
Msgbox "程序运行共用了：" & timer-t  '秒！"
End Sub

每次运行时间当然是不一样的，因为每次运行时电脑状态都不同，花的时间自然也不同

zhaokuo

aman1516 发表于 2018-3-5 12:20
Sub test()
'代码最前面：
t=timer

那我上面的代码也是正确的吧？因为我想把开始时间，结束时间和花费时间全都显示出来

lj1226189

sql = "select * from [表2医院月报表$a4:f10]"
        
        rs.Open sql, cnn

顺带问一下 如何将rs 的值赋给数组