＆＃39;类型不匹配＆＃39;在调用DateDiff函数时

Question

获取＆＃39;类型不匹配＆＃39;这里。我的编码问题是什么？

编入第1单元：

Function NumberofRows(pDate1 As Date, pDate2 As Date) As Integer
NumberofRows = DateDiff("d", pDate1, pDate2) + 6
End Function

编入Userform :(将通过命令按钮调用）

Private Sub InsertRows()
Dim i As Integer
i = NumberofRows("SDI", "EDI")

Worksheets(5).Rows("5:" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

SDI和EDI是文档中命名为开始日期和结束日期的单元格。