Compare dates provide in two different formats

Function fnCompareDate(date1,Date2)
varDay1 = day(date1)
varMonth1 = Month(date1)
varYear1 = Year(date1)
varDay2 = day(date2)
varMonth2 = Month(date2)
varYear2 = Year(date2)

If ((varDay1=varDay2)and(varDay1=varDay2) and(varDay1=varDay2)) Then
fnCompareDate= true
Else
fnCompareDate= false
End If
End Function