QTP 能否改变系统的日期?

rokey

不知道QTP是否能改变系统的日期,如果可以,请告诉我方法!

denisye

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

你是想怎么修改系统日期?说具体点.

rokey

我是想每循环一次,系统日期自动增加一天.

风过无息

楼主你想实现什么功能呢？
假如你想获得本机当前时间的话，直接用date就可以，然后递增。

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

rokey

我的目的是这样的:

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

htot05

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

rokey

完了,说不清楚了!
我目的是,我每做一次循环,系统的日期递加1,请问如何实现?

htot05

哦,需要修改本机的系统时间啊,这样好像需要调用API函数实现吧,我去试试,下午给你结果

xiaonan

2楼版主说的可以尝试

rickyzhu

对,用二楼的方方试试.

htot05

晕了,我试的头都疼了,也没试出来,呵呵,不好意思
不过二楼的的确好用,但要加一个关闭命令提示符窗口的语句,然后就能用了~!
sdlkfj1

rokey

我试过二楼的用法,是可以用,但是假如我要做十次循环,每一次循环要改变一次系统的日期,这个应该怎样做?

风过无息

为什么不把时间设置为一个参数，第一次去系统时间，然后循环加1呢？

rokey

这个问题,我和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

我是rain,以上是我和rokey一起讨论完成了。哈哈