Sub testdate(t1 As Date)
Dim s As Integer
t1 = Format(t1, "mm/dd/yy")
Debug.Print t
s = DatePart("m", t1)
Debug.Print s
End Sub
Call testdate(06/19/2009)
is giving 12
Call testdate(#06/19/2009#)
is giving 06....(correct value)
In my code, I have to extract the month and year part from cs4...