comment convertir des valeurs en HEXA en DECIMAL SVP ?

Question

Comment puis-je convertir des valeurs en HEXA, en DECIMAL (BASE 16 > BASE 10)
Car le contraire est facile avec la fonctin Hex mais pas la réciproque...

 Merci @+ Zeeti

Amonbofis · Answer

Dim Un as Long

Un = &HF0

Un contiendra 240

Virus · Answer

Placer sa dans général

-----------------------------

Function dec(nombre$)
nombre2 = 0
longeur = Len(nombre$)
For i = 1 To longeur
renge$ = Mid(nombre$, longeur - i + 1, 1)
'-----------If renge$ "0" Then n 0If renge$ "1" Then n 1If renge$ "2" Then n 2If renge$ "3" Then n 3If renge$ "4" Then n 4If renge$ "5" Then n 5If renge$ "6" Then n 6If renge$ "7" Then n 7If renge$ "8" Then n 8If renge$ "9" Then n 9If renge$ "A" Then n 10If renge$ "B" Then n 11If renge$ "C" Then n 12If renge$ "D" Then n 13If renge$ "E" Then n 14If renge$ "F" Then n 15
'-----------
nombre2 = nombre2 + n * (16 ^ (i - 1))
Next i
dec = nombre2
End Function

--------------------------------

Puis si vous tapez :
print dec(E2)
vous obtiendrez : 226

billyoctet · Answer

Billy Octet

Il suffit de mettre "&H" en entete de la string hexa et de faire une convertion en Long

dim MyString as string
dim MyLong as long

MyString = "28C"
MyLong = Clng("&H" & Mystring)

Comment convertir des valeurs en HEXA en DECIMAL SVP ?

3 réponses

Discussions similaires