编写的一个10进制转二进制字符串的函数

create or replace function SHI_TO2(
f1 in number)

return varchar2

is

vf11 varchar(30);
vf12 number:=f1;

begin
 

  Loop
  exit when  vf12 = 0 ;
       if  mod(vf12,2)=0  then 
           vf11:='0'||vf11 ;
       else 
           vf11:='1'||vf11  ;
       end  if ;
       vf12:=trunc(vf12/2);
   end loop;
  

  return(vf11);

end SHI_TO2;