Hej.
Är det någon som har sett eller har en funktion som gör binära tal till hextal???


/Micke

Tjena!

Undrar bara hur du representerar dina binära tal.

//Jonas

Hej
Roade mig med att skriva en snabblösning för långa heltal
Den är inte heltäckande ,negativa tal och decimala blir struligare

Option Explicit
Private Sub Command1_Click()
Dim retStr As String
retStr = BinToHex("101110")
Label1.Caption = retStr
End Sub

Private Function BinToHex(ByVal binStr As String) As String
Dim sLen As Long, tmpStr As String, i As Long
Dim binSum As Long, posValue As Long
posValue = 1
tmpStr = StrReverse(binStr)
sLen = Len(binStr)
For i = 1 To sLen
If Mid$(tmpStr, i, 1) = "1" Then _
binSum = binSum + posValue
posValue = posValue * 2
Next 'i
BinToHex = Hex$(binSum)
End Function

mvh
Sven