conversione stringa a esadecimale

[pant]

Ciao

vorrei sapere come si fa a interpretare una stringa ( es. str="10") come un numero esadecimale (cioe' serhex= 10)

grazie

[tas]

Dim n As Long
Dim esa As String

esa = "FF"
n = CLng("&H" & esa)

Debug.Print n

[pant]

ok ma ho provato con

Private Sub Form_Load()

Dim n As Long
Dim esa As String

esa = "10"
n = CLng("&H" & esa)

Debug.Print n


End Sub


il risultato e' n= 16 mentre io vorrei che n = 10 esadecimale! e poi vorrei convertirlo in binario

[tas]

Ti consiglio allora di usare un tipo Long (oppure Integer) per memorizzare il numero, in formato decimale. Quando assegni la variabile:

esa = "10"
n = CLng("&H" & esa)   'in memoria hai 16 decimale
Debug.Print Hex$(n)    'in stampa hai ancora 10

Cmq dipende da quello che devi fare, per fare calcoli è meglio convertirlo in decimale, per altri scopi potrebbe essere preferibile lasciarlo nel formato stringa.