PC Toledo

Código: Selecionar todos

function Hex2Dec(cHex)
local nDec := 0
local nMul := 0
local cDig
local nPos
for nPos := Len(cHex) to 1 step -1
    cDig := Upper(SubStr(cHex,nPos,1))
    nDec += if(cDig $ "ABCDEF", Asc(cDig)-55, Val(cDig)) * (16^nMul)
    nMul ++
next
return Int(nDec)