當通過調用宏中的函數提取日期時，類型不匹配

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;其定義是parameterles。