关于vbs自建函数调用的问题，在线等

moonpaths 发表于 2010-1-26 11:20:38

自建函数如下：
'******************************************************************************
'函数说明：日期转换函数，将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:22

如果函数放在外部，需要先注册

moonpaths 发表于 2010-1-26 12:07:55

原帖由 mzhy 于 2010-1-26 11:57 发表 http://bbs.51testing.com/images/common/back.gif
如果函数放在外部，需要先注册
是10.0新加的么？我在9.2下调用一直没问题

yujie6832 发表于 2010-1-26 12:11:03

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

moonpaths 发表于 2010-1-26 12:12:59

原帖由 yujie6832 于 2010-1-26 12:11 发表 http://bbs.51testing.com/images/common/back.gif
你如果直接调用，我相信是没问题的
但是你这里有个返回值，这种情况我是没有试过，但是我举个例子，QTP只能直接调用到FUNCTION，如CLASS之类的就不能调用了，需要先实例化类，但是我看了你的函数，没有CLASS，实在不 ...
呃。。。其他有返回值的函数也没出这个错误。。。qtp的类型不匹配错误太……干了，每次报这个错误结果都和类型没关系:L

moonpaths 发表于 2010-1-26 12:29:00

忘记说了我在file-setting-resorece里已经关联过了，还需要手动注册吗？用Executefile吗？

yujie6832 发表于 2010-1-26 12:44:48

回复 6# 的帖子

没必要用那个函数的吧我想，这个我现在一下子还真说不清楚，建议就试试注册函数吧~

风雪夜归人 发表于 2010-1-26 14:41:40

strBirthDay=DateConvert(strBirthDay)改为 strBirthDay=DateConvert(CDate(strBirthDay))试试

页: [1]

51Testing软件测试论坛 's Archiver

关于vbs自建函数调用的问题，在线等

回复 6# 的帖子