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 #\r
   8 \r
   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 AM#\r
  15 \r
  16         if d1 <> d then\r
  17                 Throw new System.Exception("#A2 : values d and d1 are not same")\r
  18         end if\r
  19 \r
  20         d = # 3:24:59 #\r
  21         d1 = # 01/01/0001 3:24:59 AM#\r
  22 \r
  23         if d1 <> d then\r
  24                 Throw new System.Exception("#A3 : values d and d1 are not same")\r
  25         end if\r
  26 \r
  27         d = # 15:24:59 #\r
  28         d1 = # 01/01/0001 3:24:59 PM#\r
  29 \r
  30         if d1 <> d then\r
  31                 Throw new System.Exception("#A4 : values d and d1 are not same")\r
  32         end if\r
  33 \r
  34         d = # 3 PM #\r
  35         d1 = # 01/01/0001 15:00:00 #\r
  36 \r
  37         if d1 <> d then\r
  38                 Throw new System.Exception("#A5 : values d and d1 are not same")\r
  39         end if\r
  40 \r
  41         d = # 3:13 PM #\r
  42         d1 = # 01/01/0001 3:13:00 PM#\r
  43 \r
  44         if d1 <> d then\r
  45                 Throw new System.Exception("#A6 : values d and d1 are not same")\r
  46         end if\r
  47     End Sub\r
  48 End Module\r