converter hex para decimal

[erickbonfim]

oi, como vão?

eu tenho uma string que recebe o valor hexadecimal 2000 por exemplo, preciso converter para decimal, mas minhas tentativas estão falhando, tentei usando o store, pegando esse valor e coloca 0x na frente dele mas não deu certo, pelo val() até deu certo, mas ele deixa 2 casas decimais no valor, como posso resolver isso?

[alceu11]

*Esta Dica é do Joao_degrau vfpbrasil
1-)exemplo

Código:

LOCAL iNum as Number
iNum = 0x2000
MESSAGEBOX(iNum)
2-)exemplo
***Agora com funcao
ra="2000" && a tua string
ra=VAL(ra)
MESSAGEBOX(HexToDecimal(ra))

FUNCTION HexToDecimal(nHex as Number) as String
    RETURN VAL("0x"+TRANSFORM(nHex))
   
ENDFUNC


[erickbonfim]

resolvido, obrigado1