比较两个数相差（function）

create or replace function Compar(v1 in number) return number is
  temp number;
begin
  temp := v1;
  if(temp<0)then
    temp := abs(temp);
  end if;
  while(temp>5 or temp < 0.5)loop
     if(temp > 5)then
        temp := temp /10;
     end if;
     if(temp < 0.5)then
        temp := temp * 10;
     end if;
  end loop;
  if(temp<=1.01 and temp >=0.99)then  --相差在1%的范围
     return 1;
  else
    return 0;
  end if;
end Compar;