We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you a podcast all about Citrix Workspace, moving to the cloud, and analytics & intelligence. Episode 2 coming soon!Listen Now

x

# converting hex value to decimal value

on
Medium Priority
444 Views
i have a problem, in my app. i have to convert decimal to hex (no problem with hex(variable)) but i also want to do the opposite. I want to convert a hex value into a decimal value and i have not found any way to do it... help me..

p.s: i use vb-pro 3
Comment
Watch Question

## View Solution Only

Commented:
Hi Jacques,

Create a module file, insert two functions :

Public Function HexToDec(n)
Dim nLen
Dim i
Dim ndec

ndec = 0
nLen = Len(n)

For i = nLen - 1 To 0 Step -1

ndec = ndec + (16 ^ i) * GetDecValue(UCase(Mid(n, nLen - i, 1)))
Next
HexToDec = ndec
End Function

Public Function GetDecValue(n)
Dim RetValue

Select Case n
Case "F"
RetValue = 15
Case "E"
RetValue = 14
Case "D"
RetValue = 13
Case "C"
RetValue = 12
Case "B"
RetValue = 11
Case "A"
RetValue = 10
Case Else
RetValue = n
End Select
GetDecValue = RetValue
End Function

You can use the converting like :

idec=hextodec("FFFF")
msgbox idec

Regards
Johan Loos
jloos@glo.be

Not the solution you were looking for? Getting a personalized solution is easy.

Commented:
I cannot get you function to reply... I have placed it inside a module file (module1.bas) and the two function are contained into the pull down menu. so here is a part of my code..

If Len(text4.Text) < 6 Then
Exit Sub
End If

Dim rouge As String
Dim vert As String
Dim bleu As String

rouge = UCase\$(Left(text4.Text, 2))
vert = UCase\$(Right(Left(text4.Text, 4), 2))
bleu = UCase\$(Right(text4.Text, 2))

rougedec = HexToDec("rouge")

vertdec = HexToDec(vert)

bleudec = HexToDec(bleu)

label1.Caption = rougedec
label2.Caption = vertdec
label3.Caption = bleudec

hscroll1.Value = Val(rougedec)
hscroll2.Value = Val(vertdec)
hscroll3.Value = Val(bleudec)

the user enters a 6 digit string and the app split the rr-gg-bb so that they can be converted separatly. when the app get to you function call, the labels get blank... help me (am i using your function right) could my code cause this?

help me

Commented:
rougedec=hextodec(rouge) and NOT rougedec=hextodec("rouge")

I've copied your code for testing and works fine.

Let know if it works now
Johan

Commented:
i found out that val(&hff)
will do the job so o only got to do this

toconvert\$ = "&h" + rouge
decimal = val(toconvert\$)

and it converts, save a lot of time and coding

thanks anyway

bye

##### Thanks for using Experts Exchange.

• View three pieces of content (articles, solutions, posts, and videos)
• Ask the experts questions (counted toward content limit)
• Customize your dashboard and profile