调用DateDiff函数时“types不匹配”

在这里获得“types不匹配”。 我的编码问题是什么？

编入模块1：

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

编入Userform :(将被命令button调用）

 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在文档中被命名为开始date和结束date。