Konversii Angka Dari Hexa ke Decimal dan Sebaliknya

Di bawah ini merupakan fungsi untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya.

Option Explicit 
 
Public Function DecToHex(DecNumber) 
    DecToHex = Hex(DecNumber) 
End Function 
 
Public Function HexToDec(HexNumber) 
    HexToDec = Val("&H" & HexNumber) 
End Function 

Contoh penggunaan Konversi angka dari decimal ke hexa

Private Sub Form_Load() 
    MsgBox DecToHex(120000) 
End Sub  Contoh 

penggunaan konversi angka dari hexa ke decimal

Private Sub Form_Load() 
    MsgBox HexToDec(120000) 
End Sub