allan, thanks for replying....
Function IsDupeslam(cs1 As String, cs2 As String, cs3 As String, cs4 As Date)
Dim y As Integer
y = Month(cs4)
Debug.Print y
End Function
Call Isdupeslam("aa","bb","cc",1/1/2009)
gives 12...??!!!
Call Isdupeslam("aa","bb","cc",#1/1/2009#)
gives 1....which is...