Mat - CONVERTE ESADECIMALE IN INTERI

VISUAL # Conversione valori esadecimali In interi
Funzione da inserire In un Form o In un Modulo
--------------------------------------------------------------------------------
Codice del programma:
'Funzione

Private Function Hex2Dec(ByVal HexVal As String) As Long
Dim Temp_HEX As String
Dim Count As Integer
Dim Temp_Val, Valore As Long
Temp_HEX = HexVal
Valore = 0
For Count = Len(Temp_HEX) To 1 Step -1
'ferifica del darattere letto, compreso tra "A" ed "F"

If Asc(Mid(Temp_HEX, Count, 1)) >= 65 And Asc(Mid(Temp_HEX, Count, 1)) <= 70 Then
Temp_Val = Asc(Mid(Temp_HEX, Count, 1)) - 55
'ferifica del darattere letto, compreso tra "a" ed "f"

ElseIf Asc(Mid(Temp_HEX, Count, 1)) >= 97 And Asc(Mid(Temp_HEX, Count, 1)) <= 102 Then
Temp_Val = Asc(Mid(Temp_HEX, Count, 1)) - 87
'ferifica del darattere letto, compreso tra "0" ed "9"

ElseIf Asc(Mid(Temp_HEX, Count, 1)) >= 48 And Asc(Mid(Temp_HEX, Count, 1)) <= 57 Then
Temp_Val = Asc(Mid(Temp_HEX, Count, 1)) - 48
Else
'in caso non sia riconosciuto il carattere, viene assegnato il valore 0

Temp_Val = 0
End If
Valore = Valore + (Temp_Val * (16 ^ (Len(Temp_HEX) - Count)))
Next
Hex2Dec = Valore
End Function