Decimal Explicit Conversion (Decimal to Byte) (System)

' Example of the explicit conversions from Decimal to Byte and 
' Decimal to SByte.
'
' Option Strict must be on, or compiler will attempt to perform explicit
' conversions without an explicit conversion method call.
Option Strict On

Module Example

   Const formatter As String = "{0,16}{1,19}{2,19}"

   ' Convert the decimal argument; catch exceptions that are thrown.
   Public Sub DecimalToS_Byte(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal argument As Decimal)
      Dim sByteValue As Object
      Dim byteValue As Object

      ' Convert the argument to an sbyte value.
      Try
         sByteValue = CByte(argument)
      Catch ex As Exception
         sByteValue = ex.GetType().Name
      End Try

      ' Convert the argument to a byte value.
      Try
         byteValue = CType(argument, Byte)
      Catch ex As Exception
         byteValue = ex.GetType().Name
      End Try

      outputBlock.Text &= String.Format(formatter, argument, sByteValue, byteValue) & vbCrLf
   End Sub

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

      ' Convert decimal values and display the results.
      DecimalToS_Byte(outputBlock, 78D)
      DecimalToS_Byte(outputBlock, New Decimal(78000, 0, 0, False, 3))
      DecimalToS_Byte(outputBlock, 78.999D)
      DecimalToS_Byte(outputBlock, 255.999D)
      DecimalToS_Byte(outputBlock, 256D)
      DecimalToS_Byte(outputBlock, 127.999D)
      DecimalToS_Byte(outputBlock, 128D)
      DecimalToS_Byte(outputBlock, -0.999D)
      DecimalToS_Byte(outputBlock, -1D)
      DecimalToS_Byte(outputBlock, -128.999D)
      DecimalToS_Byte(outputBlock, -129D)
   End Sub
End Module
' The example displays the following output:
'    Decimal argument    SByte/Exception     Byte/Exception
'    ----------------    ---------------     --------------
'                  78                 78                 78
'              78.000                 78                 78
'              78.999                 79                 79
'             255.999  OverflowException  OverflowException
'                 256  OverflowException  OverflowException
'             127.999                128                128
'                 128                128                128
'              -0.999  OverflowException  OverflowException
'                  -1  OverflowException  OverflowException
'            -128.999  OverflowException  OverflowException
'                -129  OverflowException  OverflowException

// Example of the explicit conversions from decimal to byte and 
// decimal to sbyte.
using System;

class Example
{
   const string formatter = "{0,16}{1,19}{2,19}";

   // 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 DecimalToS_Byte(System.Windows.Controls.TextBlock outputBlock, decimal argument)
   {
      object SByteValue;
      object ByteValue;

      // Convert the argument to an sbyte value.
      try
      {
         SByteValue = (sbyte)argument;
      }
      catch (Exception ex)
      {
         SByteValue = GetExceptionType(ex);
      }

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

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

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

      // Convert decimal values and display the results.
      DecimalToS_Byte(outputBlock, 78M);
      DecimalToS_Byte(outputBlock, new decimal(78000, 0, 0, false, 3));
      DecimalToS_Byte(outputBlock, 78.999M);
      DecimalToS_Byte(outputBlock, 255.999M);
      DecimalToS_Byte(outputBlock, 256M);
      DecimalToS_Byte(outputBlock, 127.999M);
      DecimalToS_Byte(outputBlock, 128M);
      DecimalToS_Byte(outputBlock, -0.999M);
      DecimalToS_Byte(outputBlock, -1M);
      DecimalToS_Byte(outputBlock, -128.999M);
      DecimalToS_Byte(outputBlock, -129M);
   }
}

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

decimal argument    sbyte/exception     byte/exception
----------------    ---------------     --------------
              78                 78                 78
          78.000                 78                 78
          78.999                 78                 78
         255.999  OverflowException                255
             256  OverflowException  OverflowException
         127.999                127                127
             128  OverflowException                128
          -0.999                  0                  0
              -1                 -1  OverflowException
        -128.999               -128  OverflowException
            -129  OverflowException  OverflowException
*/