Decimal Explicit Conversion (Decimal to Int64) (System)

' Example of the explicit conversions from Decimal to Long and 
' Decimal to ULong.
Module Example

   Const formatter As String = "{0,25}{1,22}{2,22}"

   ' Convert the decimal argument catch exceptions that are thrown.
   Public Sub DecimalToU_Int64(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal argument As Decimal)
      Dim Int64Value As Object
      Dim UInt64Value As Object

      ' Convert the argument to a long value.
      Try
         Int64Value = CLng(argument)
      Catch ex As Exception
         Int64Value = ex.GetType().Name
      End Try

      ' Convert the argument to a ulong value.
      Try
         UInt64Value = CULng(argument)
      Catch ex As Exception
         UInt64Value = ex.GetType().Name
      End Try

      outputBlock.Text += String.Format(formatter, argument, _
          Int64Value, UInt64Value) + vbCrLf
   End Sub

   Public Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      outputBlock.Text += String.Format(formatter, "Decimal argument", _
          "Long/Exception", "ULong/Exception") + vbCrLf
      outputBlock.Text += String.Format(formatter, "----------------", _
          "--------------", "---------------") + vbCrLf

      ' Convert decimal values and display the results.
      DecimalToU_Int64(outputBlock, 123D)
      DecimalToU_Int64(outputBlock, New Decimal(123000, 0, 0, False, 3))
      DecimalToU_Int64(outputBlock, 123.999D)
      DecimalToU_Int64(outputBlock, 18446744073709551615.999D)
      DecimalToU_Int64(outputBlock, 18446744073709551616D)
      DecimalToU_Int64(outputBlock, 9223372036854775807.999D)
      DecimalToU_Int64(outputBlock, 9223372036854775808D)
      DecimalToU_Int64(outputBlock, -0.999D)
      DecimalToU_Int64(outputBlock, -1D)
      DecimalToU_Int64(outputBlock, -9223372036854775808.999D)
      DecimalToU_Int64(outputBlock, -9223372036854775809D)
   End Sub
End Module
' The example displays the following output:
'             Decimal argument        Long/Exception       ULong/Exception
'             ----------------        --------------       ---------------
'                          123                   123                   123
'                      123.000                   123                   123
'                      123.999                   124                   124
'     18446744073709551615.999     OverflowException     OverflowException
'         18446744073709551616     OverflowException     OverflowException
'      9223372036854775807.999     OverflowException   9223372036854775808
'          9223372036854775808     OverflowException   9223372036854775808
'                       -0.999                    -1     OverflowException
'                           -1                    -1     OverflowException
'     -9223372036854775808.999     OverflowException     OverflowException
'         -9223372036854775809     OverflowException     OverflowException

// Example of the explicit conversions from decimal to long and 
// decimal to ulong.
using System;

class Example
{
   const string formatter = "{0,25}{1,22}{2,22}";

   // Get the exception type name; remove the namespace prefix.
   public static string GetExceptionType(Exception ex)
   {
      string exceptionType = ex.GetType().ToString();
      return exceptionType.Substring(
          exceptionType.LastIndexOf('.') + 1);
   }

   // Convert the decimal argument; catch exceptions that are thrown.
   public static void DecimalToU_Int64(System.Windows.Controls.TextBlock outputBlock, decimal argument)
   {
      object Int64Value;
      object UInt64Value;

      // Convert the argument to a long value.
      try
      {
         Int64Value = (long)argument;
      }
      catch (Exception ex)
      {
         Int64Value = GetExceptionType(ex);
      }

      // Convert the argument to a ulong value.
      try
      {
         UInt64Value = (ulong)argument;
      }
      catch (Exception ex)
      {
         UInt64Value = GetExceptionType(ex);
      }

      outputBlock.Text += String.Format(formatter, argument,
          Int64Value, UInt64Value) + "\n";
   }

   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      outputBlock.Text += String.Format(
          "This example of the explicit conversions from decimal " +
          "to long \nand decimal to ulong generates the following " +
          "output. It displays \nseveral converted decimal " +
          "values.\n") + "\n";
      outputBlock.Text += String.Format(formatter, "decimal argument",
          "long/exception", "ulong/exception") + "\n";
      outputBlock.Text += String.Format(formatter, "----------------",
          "--------------", "---------------") + "\n";

      // Convert decimal values and display the results.
      DecimalToU_Int64(outputBlock, 123M);
      DecimalToU_Int64(outputBlock, new decimal(123000, 0, 0, false, 3));
      DecimalToU_Int64(outputBlock, 123.999M);
      DecimalToU_Int64(outputBlock, 18446744073709551615.999M);
      DecimalToU_Int64(outputBlock, 18446744073709551616M);
      DecimalToU_Int64(outputBlock, 9223372036854775807.999M);
      DecimalToU_Int64(outputBlock, 9223372036854775808M);
      DecimalToU_Int64(outputBlock, -0.999M);
      DecimalToU_Int64(outputBlock, -1M);
      DecimalToU_Int64(outputBlock, -9223372036854775808.999M);
      DecimalToU_Int64(outputBlock, -9223372036854775809M);
   }
}

/*
This example of the explicit conversions from decimal to long
and decimal to ulong generates the following output. It displays
several converted decimal values.

         decimal argument        long/exception       ulong/exception
         ----------------        --------------       ---------------
                      123                   123                   123
                  123.000                   123                   123
                  123.999                   123                   123
 18446744073709551615.999     OverflowException  18446744073709551615
     18446744073709551616     OverflowException     OverflowException
  9223372036854775807.999   9223372036854775807   9223372036854775807
      9223372036854775808     OverflowException   9223372036854775808
                   -0.999                     0                     0
                       -1                    -1     OverflowException
 -9223372036854775808.999  -9223372036854775808     OverflowException
     -9223372036854775809     OverflowException     OverflowException
*/