脚本调用外部函数，提示："Run Error类型不匹配",怎么办？什么原因？

ppllggmm

测试的功能：选定查询的开始时间和结束时间，时间格式必须是yyyymmdd。
我的实现：
编写了一个函数来完成格式的转换，然后在脚本中调用此函数来获得符合格式的日期。
函数如下：
Function DateFormat(ByVal datenow)
Dim nowArray(3),templen1,templen2,datenow2
nowArray(0)=Cstr(Year(datenow))
nowArray(1)=Cstr(Month(datenow))
nowArray(2)=Cstr(Day(datenow))
templen1=Len(nowArray(1))
if(templen1<2) Then
  nowArray(1)=0&nowArray(1)
ElseIf(templen1>2)Then
  DateFormat="Error"
  Exit Function
End if
templen2=Len(nowArray(2))
if(templen2<2) Then
  nowArray(2)=0&nowArray(2)
ElseIf(templen2>2)Then
  DateFormat="Error"
  Exit Function
End If
DateFormat=nowArray(0)&nowArray(1)&nowArray(2)
End Function

存储为的文件名是：DateFormat.qfl
在文件的Setting中把此函数设定为资源。

脚本中调用的地方是这么写的：
yes=DateAdd("d",-1,Date)'历史明细的结束日期不能是当前日期，故采用了当前日期的前一天
strDate =DateFormat(DateAdd("m",-3,yes))'设置历史明细开始日期
endDate = DateFormat(yes)'设置历史明细结束日期

一运行就会报错，提示：

ppllggmm

补充一下：
编写脚本的机器A运行完全没有问题
迁移到机器B的时候才产生了这个问题

如果直接把函数粘贴在脚本当中，是可以运行通过的

lyscser

应该是加载resource的时候被QTP那个垃圾的相对路径搞趴了吧……亲！！！！
最近好多人为类型不匹配发帖有木有！！！！
为什么的类型不匹配的怎么那么多啊！！！包邮啊亲！！！

ppllggmm

相对路径吗？我现在的确用的相对路径
我改成绝对路径试试
谢谢 lyscser  回答

风雪夜归人

应该是加载resource的时候被QTP那个垃圾的相对路径搞趴了吧……亲！！！！
最近好多人为类型不匹配发帖有木 ...
lyscser 发表于 2011-4-1 17:07

    haha ~~~~~~淘宝体和咆哮体同时出现~

ppllggmm

改成了绝对路径，还是不行啊，还是报同样的错误
到底是怎么回事儿？求高手解答求解答！！！！！！！

风雪夜归人

就是编码问题啊。。。
你用QTP新建一个文件，把vbs里面的内容粘贴进去，然后保存为xxx.vbs就可以了~

ppllggmm

回复 7# 风雪夜归人

你的方法我也试了，还是不行
多谢你了啊

maosilu

这个问题我现在也遇到了，最终怎么解决的？求解！多谢

maosilu

这个问题我现在也遇到了，最终怎么解决的？求解！多谢