VB.Net by API/System/Decimal

Decimal.Compare

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim D1, D2 As Decimal
       D1 = 10
       D2 = 5.7
       Console.WriteLine(Decimal.rupare(D1, D2))

  End Sub

End class

 </source>

Decimal.Divide

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim D1, D2 As Decimal
       D1 = 10
       D2 = 5.7
       Console.WriteLine(Decimal.Divide(D1, D2))
  End Sub

End class

 </source>

Decimal.Floor

<source lang="vbnet">

public class Test

  public Shared Sub Main
       Console.WriteLine(Decimal.Floor(5.7))
  End Sub

End class

 </source>

Decimal.GetBits

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim D1, D2 As Decimal
       D1 = 10
       D2 = 5.7
       Console.WriteLine(Decimal.GetBits(3).GetValue(0))

  End Sub

End class

 </source>

Decimal.MaxValue

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim result As New System.Text.StringBuilder
       Dim maxDecimal As Decimal = Decimal.MaxValue
       Dim sizeOfDecimal As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDecimal.GetType)
       result.Append("Memory size of a Decimal (bytes): ")
       result.AppendLine(sizeOfDecimal)
       result.Append("Maximum value of a Decimal: ")
       result.AppendLine(maxDecimal)
       result.Append("Divided by one million: ")
       result.AppendLine(maxDecimal / 1000000D)
       result.Append("1D / 3D: ")
       result.AppendLine(1D / 3D)
       Console.WriteLine(result.ToString())
    End Sub

End Class

 </source>

Decimal.MinValue

<source lang="vbnet"> public class Test

  public Shared Sub Main
              Dim dNum As Decimal
              Console.WriteLine("Decimal: " & dNum.MinValue & " to " & dNum.MaxValue)
  End Sub

End class

 </source>