Mega Code Archive

 

Categories / VB.Net by API / System

 

Decimal MaxValue

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