mcs/mbas/Test/tests/conversions/ImpConversionSingletoDecimalB.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Module ImpConversionDoubletoDecimalB
   7         Sub Main()
   8                         Dim c as Boolean = False
   9                         Dim a as Decimal
  10                         Dim b as Double = Double.PositiveInfinity
  11                         try
  12                                 a = b
  13                         Catch e as System.Exception
  14                                 c = true
  15                         End try
  16                         if c = False then
  17                                 System.Console.WriteLine("Double to Decimal Conversion is not working properly.")
  18                         End If
  19         End Sub
  20 End Module
  21