[已解决]编一段统计程序运行时间的代码

不解木野狐

编一段统计程序运行时间的代码，最后用MSGBOX 显示出来，总共运行了多少秒的样子

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-11-16 17:27

sub ttt
dim t，t1
t=timer
你的代码

t1=timer-t
msgbox t1
end sub

跳转到最佳答案楼层

yyyydddd8888

sub ttt
dim t，t1
t=timer
你的代码

t1=timer-t
msgbox t1
end sub

jio1ye

1. dim t1,t2
   
2. t1 = timer()
   
3. '运行代码后
   
4. t2 = timer()
   
5. msgbox t2-t1
   
6. '上一句就可以统计时间啦

复制代码

我心飞翔410

Sub tongji()
  Dim t
   t = Timer
    '-------------------------代码区域---------------------------
   
    '-------------------------代码区域---------------------------
    t = Timer - t
    MsgBox "一共运行了" & t & "秒"
End Sub

as0810114

sub a()
dim tim as long
tim=timer
你的代码

msgbox  timer-tim

不解木野狐

jio1ye 发表于 2013-11-16 17:28

谢谢，但最佳我给了楼上的了{:1112:}

不解木野狐

我心飞翔410 发表于 2013-11-16 17:35
Sub tongji()
  Dim t
   t = Timer

你真真的是我们的好老师，谢谢那

jio1ye

不解木野狐 发表于 2013-11-16 19:09
谢谢，但最佳我给了楼上的了

慢了。没办法

victory610

这个有用，可以知道自己的代码写得是否精简。

hdfg

学习了