mcs/btests/DateLiterals.vb

   1 Module DateLiterals\r
   2     Sub Main()\r
   3         Dim d As Date\r
   4         dim d1 as Date\r
   5 \r
   6         d = # 12/1/2001 3:24:59 PM #\r
   7         d1 = # 12-01-2001 3:24:59 PM #
   8
   9         if d1 <> d then\r
  10                 Throw new System.Exception("#A1 : values d and d1 are not same")\r
  11         end if\r
  12 \r
  13         d = # 12/01/2001 #\r
  14         d1 = # 12/01/2001 12:00:00 PM#\r
  15
  16         System.Console.WriteLine(d)
  17         System.Console.WriteLine(d1)    \r
  18
  19         'if d1 <> d then\r
  20         '       Throw new System.Exception("#A2 : values d and d1 are not same")\r
  21         'end if\r
  22 \r
  23         d = # 3:24:59 #\r
  24         d1 = # 01/01/0001 3:24:59 AM#
  25
  26         if d1 <> d then\r
  27                 Throw new System.Exception("#A3 : values d and d1 are not same")\r
  28         end if\r
  29 \r
  30         d = # 15:24:59 #\r
  31         d1 = # 01/01/0001 3:24:59 PM#\r
  32
  33         System.Console.WriteLine(d)
  34         System.Console.WriteLine(d1)
  35 \r
  36         if d1 <> d then\r
  37                 Throw new System.Exception("#A4 : values d and d1 are not same")\r
  38         end if\r
  39 \r
  40         d = # 3 PM #\r
  41         d1 = # 01/01/0001 15:00:00 #\r
  42 \r
  43         if d1 <> d then\r
  44                 Throw new System.Exception("#A5 : values d and d1 are not same")\r
  45         end if\r
  46 \r
  47         d = # 3:13 PM #\r
  48         d1 = # 01/01/0001 3:13:00 PM#\r
  49 \r
  50         if d1 <> d then\r
  51                 Throw new System.Exception("#A6 : values d and d1 are not same")\r
  52         end if\r
  53     End Sub\r
  54 End Module\r