51Testing软件测试论坛

标题: 关于vbs自建函数调用的问题，在线等 [打印本页]

作者: moonpaths 时间: 2010-1-26 11:20
标题: 关于vbs自建函数调用的问题，在线等
自建函数如下：
'******************************************************************************
'函数说明：日期转换函数，将2009-1-1这样的日期字符串转换为2009-01-01
'函数名称：DateConvert
'参数说明：
'iStr：字符串，传入一个日期字符串，同时也是返回参数，返回转换过的日期字符串
'变量说明：
'DateArray：存放Split函数结果的临时数组
'******************************************************************************
Public function DateConvert (iStr as string)
Dim DateArray
DateArray=split(iStr,"-")
For i=0 to Ubound(DateArray)
If len(DateArray(i))<=1 then
DateArray(i)="0"&DateArray(i)
end if
Next
iStr=DateArray(0)&"-"&DateArray(1)&"-"&DateArray(2)
DateConvert=iStr
End Function
调用代码如下：
strBirthDay=2
strBirthDay=Date-strBirthDay*365
strBirthDay=DateConvert(strBirthDay)
print strBirthDay

调用时qtp提示“类型不匹配: 'DateConvert'

Line (3): "strBirthDay=DateConvert(strBirthDay)"”
奇怪的是我这样调用a=DateConvert("2009-1-27")也会报类型不匹配的问题
可是我把DateConvert函数直接放在代码里的话调用又没问题，求助各位高手是什么问题

[ 本帖最后由 moonpaths 于 2010-1-26 11:33 编辑 ]

作者: mzhy 时间: 2010-1-26 11:57
如果函数放在外部，需要先注册

作者: moonpaths 时间: 2010-1-26 12:07

原帖由 mzhy 于 2010-1-26 11:57 发表
如果函数放在外部，需要先注册

是10.0新加的么？我在9.2下调用一直没问题

作者: yujie6832 时间: 2010-1-26 12:11
你如果直接调用，我相信是没问题的
但是你这里有个返回值，这种情况我是没有试过，但是我举个例子，QTP只能直接调用到FUNCTION，如CLASS之类的就不能调用了，需要先实例化类，但是我看了你的函数，没有CLASS，实在不行就注册下吧，大致这个思路，9。2也是有注册的，由于不在真实环境，我也只能猜测，你先试试吧，注册下

作者: moonpaths 时间: 2010-1-26 12:12

原帖由 yujie6832 于 2010-1-26 12:11 发表
你如果直接调用，我相信是没问题的
但是你这里有个返回值，这种情况我是没有试过，但是我举个例子，QTP只能直接调用到FUNCTION，如CLASS之类的就不能调用了，需要先实例化类，但是我看了你的函数，没有CLASS，实在不 ...

呃。。。其他有返回值的函数也没出这个错误。。。qtp的类型不匹配错误太……干了，每次报这个错误结果都和类型没关系

作者: moonpaths 时间: 2010-1-26 12:29
忘记说了我在file-setting-resorece里已经关联过了，还需要手动注册吗？用Executefile吗？

作者: yujie6832 时间: 2010-1-26 12:44
标题: 回复 6# 的帖子
没必要用那个函数的吧我想，这个我现在一下子还真说不清楚，建议就试试注册函数吧~

作者: 风雪夜归人 时间: 2010-1-26 14:41
strBirthDay=DateConvert(strBirthDay)改为 strBirthDay=DateConvert(CDate(strBirthDay))试试

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)