Перевод двоичного кода в шестнадцатеричный - КАК ?

[el-niko]

Как мне программно перевести двоичный код, например "000100100001" в шестнадцатеричный. Должно получиться "121".

Подскажите пожалуйста, зараннее спасибо

[SHURUP]

Что Опять
Даже в буфере еще осталось:

Код: Выделить всё

For i = 1 To Len(res)
    tmpDec = tmpDec + Val(Mid(res, i, 1)) * 2 ^ (i - 1)
Next
HEXRres = Hex(tmpDec)

[tyomitch]

Код: Выделить всё

Option Explicit

'то же самое, но без десятичной системы как промежуточной => быстрее
Sub Main()
Dim Binary As String: Binary = "000100100001"
Dim Hex As String, i As Long
For i = 1 To Len(Binary) Step 4
Select Case Mid$(Binary, i, 4)
Case "0000": Hex = Hex & "0"
Case "0001": Hex = Hex & "1"
Case "0010": Hex = Hex & "2"
Case "0011": Hex = Hex & "3"
Case "0100": Hex = Hex & "4"
Case "0101": Hex = Hex & "5"
Case "0110": Hex = Hex & "6"
Case "0111": Hex = Hex & "7"
Case "1000": Hex = Hex & "8"
Case "1001": Hex = Hex & "9"
Case "1010": Hex = Hex & "A"
Case "1011": Hex = Hex & "B"
Case "1100": Hex = Hex & "C"
Case "1101": Hex = Hex & "D"
Case "1110": Hex = Hex & "E"
Case "1111": Hex = Hex & "F"
End Select
Next
Debug.Print Hex
End Sub

[PATRIOT_kz]

el-niko ты издеваешься ???

сам код написал, и сам не знает что почём !
на ламера ты не похож! ты наверное изверг!

[el-niko]

Я не изверг =) Я знаю как переводить устно, а как программно - незнаю...

[PATRIOT_kz]

ОК. Ну тогда просто нормально изнясняй нам

[DVV]

А как из шестнадцатиричного в десятичный!

[xolod]

Выведет в десетичном варианте значение 20 в хексе

Код: Выделить всё

MsgBox CDec(&H20)


[Vadim_n]

А как из шестнадцатиричного в десятичный!

MsgBox CDec(&H20)

А наоборот с 10 в 16 как?

[iGrok]

А наоборот с 10 в 16 как?

Hex(number)