Convert hexadecimal to decimal

[JJ1]

Hi All,

I have a string of 8 characters, which is supposed to represent a hexadecimal number. Does anyone know of any easy or smart way of converting a hexadecimal string into a decimal number of type integer ?

Thanks in advance,

James

 

[chernandez2000]

Here's a response I found on another board (cant take credit myself :-( )

You may have to work with the result to convert to type Int:

sHexValue is your 8 char string
Debug.Print = Val("&H" & sHexValue & "&&quot

Here's where i found it, u may have to cut and paste:

http://pub13.ezboard.com/fvisualbasicexplorervbtips.showMessage?topicID=20.topic

Goodluck

Conrad

 

[courtoisf]

How about:

lngMyInt = format("&h" & str8chars, "########&quot

?

 

[dilettante]

I hate both of those answers, but that's what I do too.

 

[ksbrace]

Private Function HexToDec(ByVal strNum As String) As String
'converts hexadecimal to decimal
    Dim intLength As Integer 'length of text box
    Dim i As Integer         'counter
    Dim lngNumber As Long    'value of each character
    Dim dblSum As Double     'answer
    Dim strTemp As String    'variable that holds each character
    intLength = Len(Trim(txtInput.Text))
    
    'looping length of text box to convert characters 1 by 1
    For i = intLength To 1 Step -1
    
        strTemp = Mid(strNum, i, 1)
        
        'case statement to convert alpha charachters to numeric
        Select Case strTemp
    
            Case "a"
            lngNumber = 10
    
            Case "b"
            lngNumber = 11
    
            Case "c"
            lngNumber = 12
    
            Case "d"
            lngNumber = 13
    
            Case "e"
            lngNumber = 14
    
            Case "f"
            lngNumber = 15
    
            Case Else
            lngNumber = Val(strTemp)
    
        End Select
    
        dblSum = dblSum + (lngNumber * (16 ^ (intLength - i)))
    
    Next i
    
    HexToDec = CStr(dblSum)
 
End Function