De Hex To FloadSingle (IEEE754)

No es nuevo, pero la pregunta se repite y la respuesta también:-)

    Private Function HexToFloadSingle_IEEE754(ByVal Hex As String) As Single

        Dim Resultado(3) As Byte

        Dim Indice = 0

        For Entrada As Integer = 0 To Hex.Length – 1 Step 2

            Resultado(Indice) = Byte.Parse(Hex.Substring(Entrada, 2), Globalization.NumberStyles.HexNumber)

            Indice += 1

        Next

        Array.Reverse(Resultado)

        Return BitConverter.ToSingle(Resultado, 0)

    End Function 

Saludos,

Leave a Reply

Your email address will not be published. Required fields are marked *


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>