Mega Code Archive

 

Categories / VB.Net / Development

 

Convert ToSByte (Decimal) converts decimal number to 8-bit signed integer

Module Example    Public Sub Main()         Dim numbers() As Decimal = { Decimal.MinValue, -129.5d, -12.7d, 0d, 16d, _                                      103.6d, 255.0d, Decimal.MaxValue }         Dim result As SByte                  For Each number As Decimal In numbers            Try               result = Convert.ToSByte(number)               Console.WriteLine(result)            Catch e As OverflowException               Console.WriteLine("The {0} value {1} is outside the range of the SByte type.", _                                 number.GetType().Name, number)            End Try         Next                             End Sub End Module