用QTP写的计算程序打开时间的脚本

上一篇 / 下一篇  2008-12-19 15:12:17 / 个人分类:日志

今天群里有人问测试一个应用程序打开时间怎么做,想了想写了下面的脚本

Dim str_soft_file ' 程序路径
Dim time1'开始时间
Dim time2'结束时间
str_soft_file= "E:\software\soft.exe"
' SystemUtil.BlockInput ' 锁定键盘鼠标
time1=Time()
SystemUtil.Run str_soft_file ' 打开程序
  if(Window("delphiname:=Login").Exist) then'如果找到窗口
 time2=Time()
 MsgBox(DateDiff("s",time1,time2))‘输出时间单位是秒
  End If
'SystemUtil.UnblockInput ' 解除锁定 键盘鼠标

这里的锁,我注释了,没有想好加哪里。

这里用到了两个VBscrīpt函数Time和DateDiffyu说明如下

 

 Time函数
 

描述
返回Date子类型Variant,指示当前系统时间。
语法
    Time

DateDiff 函数

 

描述
返回两个日期之间的时间间隔。
语法
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

DateDiff函数的语法有以下参数:

参数描述
interval必选。字符串表达式,表示用于计算date1date2之间的时间间隔。有关数值,请参阅“设置”部分。
date1, date2必选。日期表达式。用于计算的两个日期。
firstdayofweek可选。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。
firstweekofyear可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。

设置
interval参数可以有以下值:

设置描述
yyyy
q季度
m
y一年的日数
d
w一周的日数
ww
h小时
m分钟
s

firstdayofweek参数可以有以下值:

常数描述
vbUseSystem0使用区域语言支持 (NLS) API 设置。
vbSunday1星期日(默认)
vbMonday2星期一
vbTuesday3星期二
vbWednesday4星期三
vbThursday5星期四
vbFriday6星期五
vbSaturday7星期六

firstweekofyear参数可以有以下值:

常数描述
vbUseSystem0使用区域语言支持 (NLS) API 设置。
vbFirstJan11由 1 月 1 日所在的星期开始(默认)。
vbFirstFourDays2由在新年中至少有四天的第一周开始。
vbFirstFullWeek3由在新的一年中第一个完整的周开始。

说明
DateDiff函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用DateDiff计算两个日期相差的天数,或者当天到当年最后一天之间的星期数。

要计算date1date2相差的天数,可以使用“一年的日数”(“y”)或“日”(“d”)。当interval为“一周的日数”(“w”)时,DateDiff返回两个日期之间的星期数。如果date1是星期一,则DateDiff计算到date2之前星期一的数目。此结果包含date2而不包含date1。如果interval是“周”(“ww”),则DateDiff函数返回日历表中两个日期之间的星期数。函数计算date1date2之间星期日的数目。如果date2是星期日,DateDiff将计算date2,但即使date1是星期日,也不会计算date1

如果date1晚于date2,则DateDiff函数返回负数。

firstdayofweek参数会对使用“w”和“ww”间隔符号的计算产生影响。

如果date1date2是日期文字,则指定的年度会成为日期的固定部分。但是如果date1date2被包括在引号 (" ") 中并且省略年份,则在代码中每次计算date1date2表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。

interval为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,DateDiff返回 1 表示相差一个年份。


TAG: 日志

薛晶的个人空间 引用 删除 薛晶   /   2010-10-15 19:51:13
不错
天空下下雨的工作间 引用 删除 天空下下雨   /   2009-01-31 11:03:56
可以,知识在于交流
Nothing 引用 删除 dsy851009   /   2009-01-16 11:19:29
谢谢分享,我想转载到我空间,可以不?
 

评分:0

我来说两句

我的栏目

日历

« 2024-03-15  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 39146
  • 日志数: 57
  • 图片数: 4
  • 文件数: 1
  • 建立时间: 2008-12-01
  • 更新时间: 2012-06-27

RSS订阅

Open Toolbar