Una funzione per la conversione da decimale ad esadecimale
n VBScript esiste una funzione che ci permette di convertire un numero da decimele ad esadecimale (Hex).
Non esiste però la funzione opposta, cioè quella che ci consente di convertire il valore da esadecimale a decimale.
Ecco una funzione che può fare al caso vostro:
<%
Function Hex2Dec(numero)
Dim n, i, cifra, decimale
decimale = 0
n = Len(numero)
For i = 1 To n
decimale = decimale * 16
cifra = Mid(numero, i, 1)
decimale = decimale + InStr("0123456789ABCDEF", cifra) - 1
Next
Hex2Dec = decimale
End Function
Response.Write "Conversione da esadecimale " &_
"a decimale di 5A: " & Hex2Dec("5A")
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
