mcs/btests/DateLiteralsC4.vb

   1 REM LineNo: 9
   2 REM ExpectedError: BC31085
   3 REM ErrorMessage: Date constant is not valid.
   4
   5 Module DateLiterals
   6     Sub Main()
   7         Dim d As Date
   8
   9         d = # 12/31/02 #
  10    End Sub
  11 End Module
  12
  13
  14