51Testing软件测试论坛

标题: QTP 能否改变系统的日期? [打印本页]

作者: rokey 时间: 2007-2-26 14:35
标题: QTP 能否改变系统的日期?
不知道QTP是否能改变系统的日期,如果可以,请告诉我方法!

作者: denisye 时间: 2007-2-26 14:51
Dim oShell
Set oShell = CreateObject ("WSCript.shell")
oShell.run "cmd /K date 07-02-02"
Set oShell = Nothing
试一下行不行

[ 本帖最后由 denisye 于 2007-2-26 14:58 编辑 ]

作者: xiaonan 时间: 2007-2-26 14:52
你是想怎么修改系统日期?说具体点.

作者: rokey 时间: 2007-2-26 16:27
我是想每循环一次,系统日期自动增加一天.

作者: 风过无息 时间: 2007-2-26 18:16
楼主你想实现什么功能呢？
假如你想获得本机当前时间的话，直接用date就可以，然后递增。

[ 本帖最后由风过无息于 2007-2-27 09:16 编辑 ]

作者: rokey 时间: 2007-2-27 10:14
我的目的是这样的:

我想提取当前的系统日期中的"日",然后每循环一次日期递增一天

作者: htot05 时间: 2007-2-27 10:25
那样的话,LZ只要循环之前取到当前系统时间,然后放到变量里,每次循环把这个值加一就好了,不需要改系统时间啊~~sdlkfj4

作者: rokey 时间: 2007-2-27 10:56
完了,说不清楚了!
我目的是,我每做一次循环,系统的日期递加1,请问如何实现?

作者: htot05 时间: 2007-2-27 11:14
哦,需要修改本机的系统时间啊,这样好像需要调用API函数实现吧,我去试试,下午给你结果

作者: xiaonan 时间: 2007-2-27 14:41
2楼版主说的可以尝试

作者: rickyzhu 时间: 2007-2-27 15:08
对,用二楼的方方试试.

作者: htot05 时间: 2007-2-27 15:59
晕了,我试的头都疼了,也没试出来,呵呵,不好意思
不过二楼的的确好用,但要加一个关闭命令提示符窗口的语句,然后就能用了~!
sdlkfj1

作者: rokey 时间: 2007-2-27 16:13
我试过二楼的用法,是可以用,但是假如我要做十次循环,每一次循环要改变一次系统的日期,这个应该怎样做?

作者: 风过无息 时间: 2007-2-27 18:23
为什么不把时间设置为一个参数，第一次去系统时间，然后循环加1呢？

作者: rokey 时间: 2007-2-28 16:52
标题: 这个问题,我已经搞定了!不知道还有没有更简单的方法!
这个问题,我和Rain已经搞定了!不知道还有没有更简单的方法!代码如下:
dim oShell,i,a,b,c,d,f
For i=1 to 33
a=year(date)
b=month(date)
c=day(date)
  if b= 2 then
   If c=28 Then
         set oShell=CreateObject("WSCript.shell")
   b=b+1
   c=1
      f=a &"/"& b&"/"& c
      strcmd="cmd /k date " & f
      oShell.run strcmd
   else
            set oShell=CreateObject("WSCript.shell")
d=c+1
   f=a &"/"& b&"/"& d
            strcmd="cmd /k date " & f
            oShell.run strcmd
   End If
elseif (b=1 or b=3 or b=5 or b=7 or b=8 or b=10 or b=12) then
  If c=31  Then
      b=b+1
   c=1
         set oShell=CreateObject("WSCript.shell")
   f=a &"/"& b&"/"& c
      strcmd="cmd /k date " & f
      oShell.run strcmd
else
            set oShell=CreateObject("WSCript.shell")
d=c+1
   f=a &"/"& b&"/"& d
            strcmd="cmd /k date " & f
            oShell.run strcmd
  End If
  else
   If (b=4 or b=6 or b=9 or b=11)  Then
   If c=30 Then
         b=b+1
   c=1
         set oShell=CreateObject("WSCript.shell")
   f=a &"/"& b&"/"&c
      strcmd="cmd /k date " & f
      oShell.run strcmd
   else
            set oShell=CreateObject("WSCript.shell")
d=c+1
   f=a &"/"& b&"/"& d
            strcmd="cmd /k date " & f
            oShell.run strcmd
   End If
end if
end if
Next

作者: hxf 时间: 2007-2-28 17:26
我是rain,以上是我和rokey一起讨论完成了。哈哈

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