常用函数解析

三十三)精通QTP——自动化测试技术领航

2.1.3  常用函数解析

　　Date  函数

　　作用：返回当前系统日期。

　　语法：Data。

　　参数：无。

　　示例：

 

Dim MyDate

MyDate = Date 

Msgbox MyDate

 

　　使用QTP执行以后的结果如图2-6所示。

图2-6

-函数实际项目臆测&点评-

　　经常需要在自动化测试过程中写一些的测试执行Log，那么抓取时间的函数就相当有必要了，也可以用于错误截图时的后缀名。

　　Now  函数

　　作用：返回当前系统时间。

　　语法：Now。

　　参数：无。

　　示例：

 

Dim MyNow

MyNow = Now 

Msgbox MyNow

 

　　使用QTP执行以后的结果如图2-7所示。

图2-7

-函数实际项目臆测&点评-

　　如果说写Log文件，更加推荐本函数，因为有具体的时间而不仅仅只有日期。如果作为错误截图，个人认为本函数相对就比较不合适一些！毕竟我们都知道图片的文件名是不能有“:”这种字符的，即使最终去除了这些特殊字符，但是整体的表现力远不如前者，同时也会显得很繁琐！

　　DateDiff  函数

　　作用：返回两个日期之间的间隔。

　　语法：DateDiff (interval, date1, date2)。

　　参数。interval：通俗地讲它就是事先设一个时间比较单位，这个单位可以且只可以是表2-1中的单位。

　　表2-1                        时间比较单位

 

Setting

Description

yyyy

Year

q

Quarter

m

Month

y

Day of year

d

Day

w

Weekday

ww

Week of year

 

 

h

Hour

n

Minute

s

Second

 

　　注：参数只能设置成上表中左边这一栏的数据。date1：比较数据1。

　　date2：比较数据2。

　　示例：

 

Dim tDateDiff,date1,date2

date1 = Now

date2 = Date

tDateDiff = DateDiff("d",date1,date2)

Msgbox tDateDiff

 

　　使用QTP执行以后的结果如图2-8所示。

图2-8

　　注：返回0是正确的，因为两个Date之间的天数差异是0天，读者可以自行尝试其他参数。

-函数实际项目臆测&点评-

　　作者很兴奋地告诉读者，使用好这个函数，QTP一样能做一些简单的性能测试工作！毕竟，这个函数可以对比两个事务间的时间间距，而且可以精确到以秒为单位！

　　Left  函数

　　作用：返回字符串最左边的指定数量的字符。

　　语法：Left (string, length)。

　　参数。

　　string：字符串表达式，其最左边的字符被返回。如果string参数中包含Null，则返回Null。

　　length：数值表达式，指明要返回的字符数目。如果是0，返回零长度字符串（""）；如果大于或等于string参数中的字符总数，则返回整个字符串。

　　示例：

 

Dim MyString, LeftString

MyString = "VBScript"

LeftString = Left (MyString, 3)

‘结果：最终应返回VBS

 

-函数实际项目臆测&点评-

　　如果读者需要某个字符串的指定几个字符时，就是使用该函数的时机！

　　Right  函数

　　作用：返回字符串最右边的指定数量的字符。

　　语法：Right（string, length）。

　　参数。

　　string：字符串表达式，其最右边的字符被返回。如果string参数中包含Null，则返回Null。

　　length：数值表达式，指明要返回的字符数目。如果是0，返回零长度字符串（""）；如果大于或等于string参数中的字符总数，则返回整个字符串。

　　示例：

 

Dim MyString, RightString

MyString = "VBSCript"

RightString = Right (MyString, 6)

‘结果：最终应返回SCript