Decimal.GetTypeCode Method (System)

' Example of the Decimal.GetTypeCode method. 

Module Example

   Public Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      outputBlock.Text &= "This example of the " & _
          "Decimal.GetTypeCode( ) " & vbCrLf & "method " & _
          "generates the following output." & vbCrLf & vbCrLf

      ' Create a Decimal object and get its type code.
      Dim aDecimal As Decimal = New Decimal(1.0)
      Dim typCode As TypeCode = aDecimal.GetTypeCode()

      outputBlock.Text &= String.Format("Type Code:      ""{0}""", typCode) & vbCrLf
      outputBlock.Text &= String.Format("Numeric value:  {0}", CInt(typCode)) & vbCrLf
   End Sub
End Module

' This example of the Decimal.GetTypeCode( )
' method generates the following output.
' 
' Type Code:      "Decimal"
' Numeric value:  15

// Example of the decimal.GetTypeCode method. 
using System;

class Example
{
   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      outputBlock.Text += "This example of the " +
          "decimal.GetTypeCode( ) \nmethod " +
          "generates the following output.\n" + "\n";

      // Create a decimal object and get its type code.
      decimal aDecimal = new decimal(1.0);
      TypeCode typCode = aDecimal.GetTypeCode();

      outputBlock.Text += String.Format("Type Code:      \"{0}\"", typCode) + "\n";
      outputBlock.Text += String.Format("Numeric value:  {0}", (int)typCode) + "\n";
   }
}

/*
This example of the decimal.GetTypeCode( )
method generates the following output.

Type Code:      "Decimal"
Numeric value:  15
*/