Module DateLiterals
    Sub Main()
        Dim d As Date
	
	d = # 12/40/2002 #

	d = # 11/31/2002 #
   End Sub
End Module