QTP录制时选择的日期如何自动设置为服务器日期

walker1020

试试下面的方法：
  Browser("Service Management System").Page("Service Management System_2").Frame("mainFrame_2").Image("calendar").Object.Value = "07-01-18"

madeleine

谢谢回复！
但用
Browser("Service Management System").Page("Service Management System_2").Frame("mainFrame_2").Image("calendar").Object.Value = "18 Jan 2007"
运行时提示：Object doesn't support this property or method

我只是想获取系统当前日期，这是一个变量，在value后输入定值行吗？还有我并不是想改日期格式，所以您20楼介绍的代码我看不懂，请再指教，谢谢！

风过无息

能把你测试的页面给出来吗？

madeleine

谢谢风过无息，我原来贴有图，但图片太大，打开这个网页太慢，所以昨天删掉了。我在另一个贴子“请教怎么录制日期并参数化？”里面还有相关脚本和图片，您还回复过我的，能否在那个贴里面下载脚本帮我看看呢？非常谢谢！

风过无息

我的意思是想看那个日期的显示的地方，你只把calendar给我了。

madeleine

我是想让Tax Date栏自动取系统当前日期，请看附件，谢谢！

风过无息

个人觉得你可以从Tax Date入手，找到Tax Date的对象属性，向里面附值

madeleine

能否具体点呢？怎么找到Tax Date的对象属性？向里面附什么值？

前面不是说在专家视图里面通过改脚本获取当前日期吗？

风过无息

把Tax Date的SPY的页面给我们？

madeleine

sorry,让您等久了，请看下图

[ 本帖最后由 madeleine 于 2007-1-18 11:44 编辑 ]

风过无息

Browser("Service Management System").Page("Service Management System_2").Frame("mainFrame_2").WebEdit("Tax Date").Set MyDate
你需要MyDate转变成你要的日期类型，用FormatDateTime试一下？

[ 本帖最后由 风过无息 于 2007-1-18 12:23 编辑 ]

madeleine

试过了，报错：The "Tax Date" object was not found in the Object Repository.

风过无息

把Tax Date的对象加到对象库里面去。

walker1020

请楼主把你在 ＃26 发的图片的有"18 Jan 2007"值的那个控件用 Object spy 找到，看看是否是 WebEdit 类型， 然后对它用 Object.Value  方法，而不是你在＃22 写的 Image("calendar").Object.Value ！ Image("calendar")当然没有Object.Value 方法了。
还有，你先用FormatDateTime 函数得到系统的日期，然后用 CStr转换成你需要的格式。一般来书，你用FormatDateTime 得到的结果是 Date格式，而你需要的在页面上的是 String类型，当然不一致了。 还有，你得到的系统时间的结果可能是 2007－01－18，而显示在页面上的数据前面没有20 ，这当然需要你去转换一下了。 仔细阅读我的代码！如果看不懂，请自己运行一下。

madeleine

#30发的SPY图片上显示 Tax date是WebEdit 类型,但我用
Browser("Service Management System").Page("Service Management System_2").Frame("mainFrame_2").WebEdit("Tax date").Object.Value = "18 Jan 2007" 运行时还是报错： The "Tax Date" object was not found in the Object Repository.

另外我需要显示的日期格式是 18 Jan 2007, 下面是我参照您#20的代码改写的，我还不会写代码，请帮我检查一下哪里有错好吗？非常感谢您的指教！

Dim  CurrentDate
CurrentDate = FormatDateTime(Date, 2)
' GetCurrentDate  =  2006-1-4   
Dim ExpectedDate
'ExpectedDate = Mid( GetCurrentDate,3)
' ExpectedDate =  4 Jan 2006  

Select  Case Len(CurrentDate)
        
' CurrentDate  =  2006-1-5(for instance)      ' ExpectedDate  =  5 Jan 2006(for instance)            
     Case  8
    ExpectedDate = Cstr( Right(CurrentDate,1)) & ""  & Cstr( Mid(CurrentDate,6,1))  & ""  & Cstr( Mid(CurrentDate,3,2))
   
     Case 9
     Rem    <<<<<<<<<<<Varchar(Mid(CurrentDate,6,2))  is the statement of the month of  the date
       ' CurrentDate  =  2006-10-5(for instance)         ' ExpectedDate  =  5 Oct (for instance)            
       If  Varchar(Mid(CurrentDate,6,2))  Then
    ExpectedDate = Cstr( Right(CurrentDate,1))  & ""  & Cstr( Mid(CurrentDate,6,2))  & ""  & Cstr( Mid(CurrentDate,3,2))

        ' CurrentDate  =  2006-1-25(for instance)          ' ExpectedDate  =  25 Jan 2006 (for instance)            
        Else   ExpectedDate =  Cstr( Right(CurrentDate,2))  & ""  & Cstr( Mid(CurrentDate,6,1)) & ""  & Cstr( Mid(CurrentDate,3,2))
       End If
   
   Case 10
     'CurrentDate  =  2006-10-15(for instance)          ' ExpectedDate  =  15 Oct 2006 (for instance)               
    ExpectedDate = Cstr( Right(CurrentDate,2))  & ""  & Cstr( Mid(CurrentDate,6,2)) & ""  & Cstr( Mid(CurrentDate,3,2))
         
    End Select

  ' Msgbox(Cstr(ExpectedDate))
   Dim checkedDate
   checkedDate = Cstr(ExpectedDate)

madeleine

不好意思，我还是不明白怎么处理当前日期的设置问题，这个帖子现不好打开了，我重新发个新贴：如何将录制的日期设置为系统当前日期?麻烦各位大侠继续支持，帮我解决这个问题好吗？非常感谢！

madeleine

xiaonan建议还是用这个帖子，那我还是回到这里吧。
我重新上传了一个脚本，请各位大侠再帮我看看怎么将Appt Date设置为系统当前日期好吗？前面各位提出了多种方法，但我试过后还是没有获得当前日期，请继续指教，谢谢！

madeleine

怎么没人答复呢？请各位高手继续指教，谢谢了先

Jimmyshao

Visual Basic Scripting Edition 语言参考

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

Date 函数
返回当前系统日期。

Date

说明
下面的示例利用 Date 函数返回当前系统日期:

Dim MyDate
MyDate = Date    ' MyDate 包含当前系统日期。
要求
版本1

请参阅
CDate 函数 | Now 函数 | Time 函数


--------------------------------------------------------------------------------
&copy; 2000 Microsoft Corporation 版权所有。保留所有权利。使用规定。

madeleine

谢谢回复！我也试过用这个语句，但没有显示日期，请看一下我#37楼的附件，看一下这个语句应该放在哪个位置才对好吗？