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

moonpaths

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

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

moonpaths

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

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

yujie6832

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

moonpaths

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

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

moonpaths

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

yujie6832

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

风雪夜归人

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