标题: 脚本调用外部函数,提示:"Run Error类型不匹配",怎么办?什么原因? [打印本页] 作者: ppllggmm 时间: 2011-4-1 16:41 标题: 脚本调用外部函数,提示:"Run Error类型不匹配",怎么办?什么原因? 测试的功能:选定查询的开始时间和结束时间,时间格式必须是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