mcs/btests/DateLiteralsC4.vb

   1 Module DateLiterals\r
   2     Sub Main()\r
   3         Dim d As Date\r
   4         \r
   5         d = # 12/31/02 #\r
   6    End Sub\r
   7 End Module\r
   8 \r
   9         \r
  10         \r