Hex – Convert from decimal to hexadecimal

Hex – Convert from decimal to hexadecimal

' convert from decimal to hexadecimal' if you pass the Digits argument, the result is truncated to that number of ' digits'' you should always specify Digits if passing negative valuesFunction Hex(ByVal value As Long, Optional ByVal digits As Short = -1) As String    ' convert to base-16    Dim res As String = Convert.ToString(value, 16).ToUpper()    ' truncate or extend the number    If digits > 0 Then        If digits < res.Length Then            ' truncate the result            res = res.Substring(res.Length - digits)        ElseIf digits > res.Length Then            ' we must extend the result to the left            If value >= 0 Then                ' extend with zeroes if positive                res = res.PadLeft(digits, "0"c)            Else                ' extend with "F"s if negative                res = res.PadLeft(digits, "F"c)            End If        End If    End If    ' return to caller    Return resEnd Function


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist