Hex -> Integer, How to

[Q_Me]

How do I convert Hex to an Integer?

[DiGiTaIErRoR]

val("&HFF") = 255

so val("&h" & hex_val)

[Q_Me]

You missed the point DigitalError. The thing i'm trying to find is:

Function ConvertHex(Input as String) as Integer
 
Output = Something(Input)
ConvertHex = Output
 
End Function

[amitabh]

If you are sure that conversion will remain within Integer bounds, then use the CInt function, otherwise use the CLng function.

[Q_Me]

Those functions do not work with STRING type Hex.

The hex I am using is not the "&H??" its more like a string type.
eg.

i = ConvertHex("FF")
'i = 255

[amitabh]

Why don't you append the &H at the begining?

Private Function ConvertHex(ByRef HexValue As String) As Long
    If Not UCase(Left$(HexValue, 2)) = "H&" Then HexValue = "&H" & HexValue
    ConvertHex = CLng(HexValue)
End Function

[Q_Me]

Because wrighting filenames.

eg.

Filename.002
Filename.0BF

'ID = 0 to 4096
iHex = ConvertToHex(ID)
OpenAsTextStream(Filename & iHex, blah, blah) 'iHex = number after conversion from i
 
'Then:
ID=ConvertToI(Right(Filename, 3))
'^^^ this is what i mean.

Long Story Short. Dont ask why the hell I'm doing this, because it is too hard & long to explain.

[Q_Me]

Here this will help:

Filename = User_ID.1AF 'Sample File
ID = ConvertToInteger(Right(Filename, 3) 'Converts the"1AF" to an Integer.
 
ID = ?

[amitabh]

ID = ConvertToInteger("&H" & Right(Filename, 3)

And then In ConvertToInteger function use CInt.

[Q_Me]

I'll post the rest of what the hell I'm doing tomarrow. But that works thanx.

[DiGiTalErRoR]

You add the &H in the conversion function, from the's original value.

Duh.

here:

Function HexToInt(byval HexDat as string) as Integer
HexIoInt = val("&h" & HexDat)
End Function

To use:

i HexToInt("FF")