Macros 在宏中调用函数提取日期时，类型不匹配

我正在使用下面的代码。当我试图执行它时，我得到了“类型不匹配：错误13”。我试着把所有变量类型（long、double、date、string）都放进去，但没有一个成功

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

---

您将错误的参数“k”传递到DefectCreateDate；它的定义是parameterles。

即使我删除了“k”并将2放入DefectCreateDate（2），仍然会得到相同的类型不匹配错误。请尝试增加复杂性。注释掉j=GetClm（“创建日期”）行，因为它当前是良性的。然后尝试将“2010年2月12日”作为日期字符串。在注释掉j=GetClm（“创建日期”）之后，我得到了相同的错误。我不能用“2010年2月1日”这个词。在我编写的代码中，我只是使用“'DateString=Workbooks（“TFS报告”）.Worksheets（“Sheet1”）.Cells（i，j）.Value”代码获取数据。。。。。为了简单起见，我只需要在DateString行中输入日期字符串的值，您需要删除DefectCreateDate中的参数。错误发生在哪一行？Io已经尝试过了。这是在执行testnewde（）子例程时获取错误。