Module DateLiterals
    Sub Main()
        Dim d As Date
	
	d = # 25:05:07  #
   End Sub
End Module