欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 关于程序执行时间的测试

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3469人关注过本帖树形打印复制链接

主题：关于程序执行时间的测试
帅哥哟，离线，有人找我吗？
wukong_32
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：88 积分：150 威望：0 精华：0 注册：2013/5/15 11:29:34 		关于程序执行时间的测试  发帖心情 Post By：2014/12/29 15:01:03 [只看该作者]

初学者请教，

 

问题1：

我想检测一下我的vbs执行的效率问题，能否在sub里，开始和最后分别设置TimeValue(time)

然后使用 MsgBox "time1:"&time1&"; time2:"&time2

输出后对比time1和time2的时间差，查看执行时间？

 

问题2：

如果上面的设计可以的话，VB中是否有精度更高的函数？可以取得毫秒的？类似于数据库中的呃时间戳

 

谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/12/29 17:13:59 [只看该作者]

Document 对象

 

DebugFile(Path, Text, Time)

Path    日志保存全路径，比如"C:\OrderLog.Txt"

Text    日志记录数据内容

Time    是否自动添加时间

 

这个对象的记录时间可以是精确到毫秒的

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
wukong_32
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：88 积分：150 威望：0 精华：0 注册：2013/5/15 11:29:34 		  发帖心情 Post By：2014/12/29 18:38:11 [只看该作者]

非常感谢，请问，这样计算的时间差，能反映出程序的执行效率吗？
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/12/30 11:10:23 [只看该作者]

能的


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
pel46585
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：167 积分：661 威望：0 精华：1 注册：2009/12/25 23:43:24 		  发帖心情 Post By：2014/12/31 13:57:11 [只看该作者]

检测vbs执行的效率，，，最好不要用毫秒级的去查看

Document 。DebugFile(Path, Text, Time)单是这句代码就可能用去几十毫秒。

想检测效率，就是多循环几次就行了，

t = Time(Now())

for i=1 to 1000'1000太快，就换成10000.我一般用5秒左右的循环次数看效率。

...你想检测的代码部分...

next

msgbox Now() & "|" & t

同样的事情，有的代码用不了1秒，有的代码也实现了，却要3`5秒甚至更多。

不如好好优化自己的代码。

总感觉，除了大量的循环外，VBA不比C++慢多少。
 回到顶部
帅哥哟，离线，有人找我吗？
wukong_32
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：88 积分：150 威望：0 精华：0 注册：2013/5/15 11:29:34 		  发帖心情 Post By：2015/1/1 16:54:38 [只看该作者]

多谢建议，我试看看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.15625 秒, 5 次数据查询