• Home
 · 
• Math/Dates
 · 
• Hex to Decimal converter

Hex to Decimal converter

Hex to Decimal converter

Rate Hex to Decimal converter

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  Select Case UCase(Num)
  Case "A"
    HexNumValue = 10
  Case "B"
    HexNumValue = 11
  Case "C"
    HexNumValue = 12
  Case "D"
    HexNumValue = 13
  Case "E"
    HexNumValue = 14
  Case "F"
    HexNumValue = 15
  Case Else
    HexNumValue = Val(Num)
  End Select
End Function
Private Function Dec(ByVal HexNumber As String) As Long
  Dim ch As Integer
  Dim adder As Long
  For x = 1 To Len(HexNumber)
    ch = HexNumValue(Mid(HexNumber, x, 1))
    t = 16 ^ (Len(HexNumber) - x)
    adder = adder + (ch * t)
  Next x
  Dec = adder
End Function