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)
[]'s
Maligno
--- Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
--- Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
