用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说明如下
描述
返回Date子类型Variant,指示当前系统时间。
语法
Time
描述
返回两个日期之间的时间间隔。
语法
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])DateDiff函数的语法有以下参数:
参数 | 描述 |
interval | 必选。字符串表达式,表示用于计算date1和date2之间的时间间隔。有关数值,请参阅“设置”部分。 |
date1, date2 | 必选。日期表达式。用于计算的两个日期。 |
firstdayofweek | 可选。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。 |
firstweekofyear | 可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。 |
设置
interval参数可以有以下值:设置 | 描述 |
yyyy | 年 |
q | 季度 |
m | 月 |
y | 一年的日数 |
d | 日 |
w | 一周的日数 |
ww | 周 |
h | 小时 |
m | 分钟 |
s | 秒 |
firstdayofweek参数可以有以下值:
常数 | 值 | 描述 |
vbUseSystem | 0 | 使用区域语言支持 (NLS) API 设置。 |
vbSunday | 1 | 星期日(默认) |
vbMonday | 2 | 星期一 |
vbTuesday | 3 | 星期二 |
vbWednesday | 4 | 星期三 |
vbThursday | 5 | 星期四 |
vbFriday | 6 | 星期五 |
vbSaturday | 7 | 星期六 |
firstweekofyear参数可以有以下值:
常数 | 值 | 描述 |
vbUseSystem | 0 | 使用区域语言支持 (NLS) API 设置。 |
vbFirstJan1 | 1 | 由 1 月 1 日所在的星期开始(默认)。 |
vbFirstFourDays | 2 | 由在新年中至少有四天的第一周开始。 |
vbFirstFullWeek | 3 | 由在新的一年中第一个完整的周开始。 |
说明
DateDiff函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用DateDiff计算两个日期相差的天数,或者当天到当年最后一天之间的星期数。要计算date1和date2相差的天数,可以使用“一年的日数”(“y”)或“日”(“d”)。当interval为“一周的日数”(“w”)时,DateDiff返回两个日期之间的星期数。如果date1是星期一,则DateDiff计算到date2之前星期一的数目。此结果包含date2而不包含date1。如果interval是“周”(“ww”),则DateDiff函数返回日历表中两个日期之间的星期数。函数计算date1和date2之间星期日的数目。如果date2是星期日,DateDiff将计算date2,但即使date1是星期日,也不会计算date1。
如果date1晚于date2,则DateDiff函数返回负数。
firstdayofweek参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果date1或date2是日期文字,则指定的年度会成为日期的固定部分。但是如果date1或date2被包括在引号 (" ") 中并且省略年份,则在代码中每次计算date1或date2表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在interval为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,DateDiff返回 1 表示相差一个年份。
收藏
举报
TAG:
日志