QTP常用函数

'********************************
'是否匹配正则表达式
'********************************
Function RegExpTest(patm,strng)
Dim regEx,retVal
Set regEX = New RegExp
regEx.Pattern=patm
regEx.IgnoreCase=False
retVal = regEx.Test(strng)
If retVal Then
RegExpTest =true
Else
RegExpTest =false
End If
End Function

 

'********************************
'获得今天日期：Year-Month-Day
'********************************
Public Function Get_Today
dim todaytoday
todaytoday=Date '避免重复调用Date，所以赋值给一个变量
Get_Today=Year(todaytoday) & "-" & Right("0" & Month(todaytoday),2)& "-" & Right("0" & Day(todaytoday),2)
End Function

 

'********************************
'求阶乘
'********************************
Public Function Multiply(n)
Dim x
Multiply = 1
For x = 1 To n
Multiply = Multiply * x
Next
End Function

 

'********************************
'检查是否存在数字
'********************************
Function checkString (myString)
checkString = False
Dim myChr
For myChr = 48 to 57
If InStr(myString,Chr(myChr)) > 0 Then
checkString = True
Exit Function
End If
Next
End Function