Attribute VB_Name = "mDate"
Public Function sel2in_cellDateDiff(s1 As String, s2 As String, period As String) As Date
Dim d1 As Date, d2 As Date
d1 = DateValue(s1)
d2 = DateValue(s2)
sel2in_cellDateDiff = DateDiff(period, d1, d2)
End Function