- 论坛徽章:
- 0
|
请教将十进制转化为十六进制的函数
自己写函数转化,下面是一个例子:
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 := 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; |
|