ITPub博客

首页 > Linux操作系统 > Linux操作系统 > oracle 进制转换

oracle 进制转换

原创 Linux操作系统 作者:west_wolf6 时间:2010-11-15 15:33:22 0 删除 编辑
以下函数来自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/ ,如需转载,请注明出处,否则将追究法律责任。

上一篇: newhappy2008
下一篇: table的用法
请登录后发表评论 登录
全部评论

注册时间:2009-05-19

  • 博文量
    5
  • 访问量
    5388