关于VBs中取得系统当前时间，请帮忙看看这几行代码

peutetre

'****************************************************
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

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

coletan

还有这个是QTP直接可运行的内部函数··不需要借助vbs的

hsjzfling

没理由的。。。
你将MyTime1  Add to Watch(9.2支持右键点击变量名加入)，然后单步调试在Debug的Watch窗口中看看它的值

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

peutetre

感谢楼上二位的帮助，谢谢