以下函数来自AskTom网站,是Tom给出的例子,供参考:
create or replace function to_base( p_dec in number, p_base in number ) return varchar2isl_str varchar2(255) default NULL;l_num number default p_dec;l_hex varchar2(16) default '0123456789ABCDEF';beginif ( trunc(p_dec) <> p_dec OR p_dec < 0 ) thenraise PROGRAM_ERROR;end if;loopl_str := substr( l_hex, mod(l_num,p_base)+1, 1 ) || l_str;l_num := trunc( l_num/p_base );exit when ( l_num = 0 );end loop;return l_str;end to_base;/
create or replace function to_dec( p_str in varchar2, p_from_base in number default 16 ) return numberisl_num number default 0;l_hex varchar2(16) default '0123456789ABCDEF';beginfor i in 1 .. length(p_str) loopl_num := l_num * p_from_base + instr(l_hex,upper(substr(p_str,i,1)))-1;end loop;return l_num;end to_dec;/show errors
create or replace function to_hex( p_dec in number ) return varchar2isbeginreturn to_base( p_dec, 16 );end to_hex;/create or replace function to_bin( p_dec in number ) return varchar2isbeginreturn to_base( p_dec, 2 );end to_bin;/create or replace function to_oct( p_dec in number ) return varchar2isbeginreturn to_base( p_dec, 8 );end to_oct;/
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/16942186/viewspace-678138/
,如需转载,请注明出处,否则将追究法律责任。