51Testing软件测试论坛

标题: 关于VBs中取得系统当前时间，请帮忙看看这几行代码 [打印本页]

作者: peutetre 时间: 2007-11-15 16:35
标题: 关于VBs中取得系统当前时间，请帮忙看看这几行代码
'****************************************************
Dim CostTime,MyTime1,MyTime2,MySec
1：Browser("Browser").Navigate "http://192.168.50.199/TDMB"
2：MyTime1=Now
3： If Browser("Browser").Page("XXX管理系统").Exist Then
4：    MyTime2=Now
5：    CostTime=MyTime2-MyTime1
6：    MySec=Second(CostTime)
7：    msgbox MySec
8： else
9：    。。。。。
'*****************************************************
断点设置在第2行和第4行

此段代码用来计算两个步骤之间的时间，调试时发现运行至第2行时“MyTime1”没有返回任何值，而到第4行时“MyTime1”和“MyTime2”才相继返回不同的值，请问各位这是什么原因？如何正确实现先取到“MyTime1”然后再取“MyTime2” ？
谢谢！

[ 本帖最后由深水胖炸弹于 2007-11-15 16:40 编辑 ]

作者: coletan 时间: 2007-11-15 16:39
mytime = timer
nmytiime = timer
time = round(nmytime-mytime),2)
这样应该就可以了~
你用now取得的是包括年月日时间在内··没办法去减吧，用timer就好了

作者: coletan 时间: 2007-11-15 16:40
还有这个是QTP直接可运行的内部函数··不需要借助vbs的

作者: hsjzfling 时间: 2007-11-15 17:12
标题: 回复 1# 的帖子
没理由的。。。
你将MyTime1 Add to Watch(9.2支持右键点击变量名加入)，然后单步调试在Debug的Watch窗口中看看它的值

另回复2楼，时间格式的变量是可以做加减运算的，now也是可以的

作者: peutetre 时间: 2007-11-15 18:38
感谢楼上二位的帮助，谢谢

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)