Create or replace FUNCTION hextodec (hexnum in char) RETURN number IS
x number;
digits number;
result number := 0;
current_digit char(1);
current_digit_dec number;
BEGIN
digits := length(hexnum);
for x in 1..digits loop
current_digit := upper(SUBSTR(hexnum, x, 1));
if current_digit in ('A','B','C','D','E','F') then
current_digit_dec := ascii(current_digit) - ascii('A') + 10;
else
current_digit_dec := to_number(current_digit);
end if;
result := (result * 16) + current_digit_dec;
end loop;
return result;
END;
-----------------------------------------------------------
以上只是给了个示例.
实际上有现成的.
select hextodec('BABA11') from dual;
select to_number('BABA11','XXXXXX') from dual;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/197458/viewspace-1028751/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/197458/viewspace-1028751/