Mega Code Archive
Converts an 8-bit unsigned integer to a Decimal
<![CDATA[
Imports System
Imports Microsoft.VisualBasic
Module DecimalFromByteDemo
Sub DecimalFromByte( argument As Byte )
Dim decValue As Decimal
Dim bits( ) As Integer
decValue = Decimal.op_Implicit( argument )
bits = Decimal.GetBits( decValue )
Console.WriteLine( bits( 3 ))
Console.WriteLine(bits( 2 ))
Console.WriteLine(bits( 1 ))
Console.WriteLine(bits( 0 ) )
End Sub
Sub Main( )
DecimalFromByte( 123 )
End Sub
End Module
]]>