macros - 通过调用宏中的函数来提取日期时类型不匹配

Question

我正在使用下面的代码。当我尝试执行它时，我收到“类型不匹配：错误 13”。我尝试输入所有变量类型（长、双精度、日期、字符串），但没有一个成功。

Function DefectCreateDate()

Dim j
Dim DateString
Dim CreatedDate
j = GetClm("Created Date")
i = 2
DateString = "19-03-2013  21:41:01"
DefectCreateDate = DateValue(DateString)

End Function


Sub testnewde()
Dim K
Dim j
k= 2
j = DefectCreateDate(k)
MsgBox (j)
End Sub

Answer 1

您有一个错误参数“k”被传递到 DefectCreateDate；它的定义是参数。