VB.Net Tutorial/Data Type/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>

1

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>

1.7543859649122807017543859649

Decimal.Floor

<source lang="vbnet">public class Test

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

End class</source>

5

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>

3

Decmimal calculation

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim Dec1, Dec2 As Decimal
       Dec1 = 100
       Dec2 = 200
   
       Dec1 = Dec1 + Dec2
       Console.WriteLine(Dec1)
       Dec1 = --Dec1
       Console.WriteLine(Dec1)
       
       Dec1 = ++Dec2
       
       Console.WriteLine(Dec1)
  End Sub

End class</source>

300
300
200

Divide Decimal by double

<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>

Memory size of a Decimal (bytes): 16
Maximum value of a Decimal: 79228162514264337593543950335
Divided by one million: 79228162514264337593543.950335
1D / 3D: 0.3333333333333333333333333333

Do calculation between Integer and Decimal

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim Meters As Integer
       Dim Inches As Decimal
       Meters = 23
       Inches = Meters * 39.37
       Console.WriteLine("Meters: " & Meters)
       Meters = Meters + 1
       Console.WriteLine("Meters: " & Meters)
       Meters += 1
       Console.WriteLine("Meters: " & Meters)
  End Sub

End class</source>

Meters: 23
Meters: 24
Meters: 25

MinValue and MaxValue of Decimal

<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>

Decimal: -79228162514264337593543950335 to 79228162514264337593543950335