• Home
 · 
• Math/Dates
 · 
• convert from X base to decimal (hex, bin, oct etc...)

convert from X base to decimal (hex, bin, oct etc...)

convert from X base to decimal (hex, bin, oct etc...)

Rate convert from X base to decimal (hex, bin, oct etc...)

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

  For i = 1 To Len(bBin)
    T = B ^ (Len(bBin) - i)
    Char = Mid(bBin, i, 1)
    If Ucase(Char) = "A" Then Char = 10
    If Ucase(Char) = "B" Then Char = 11
    If Ucase(Char) = "C" Then Char = 12
    If Ucase(Char) = "D" Then Char = 13
    If Ucase(Char) = "E" Then Char = 14
    If Ucase(Char) = "F" Then Char = 15 
    TMP2 = TMP2 + (T * CLng(Char))
  Next
  CBin = TMP2
End Function