ORACLE 10进制转换2进制

喜欢ヅ旅行 2022-06-18 00:14 366阅读 0赞

之前写了个转换函数，发现当数据为负数的时候，无法转换，因为业务前端入库的数据是32位，当JAVA进行有符号转换为INT类型的时候，会产生负数，而我要再次转换为二进制进行位的判断，网上找了好多，都不能做有符号数字的转换，因此按照负数的二进制表示法重新写了个函数：

负数的二进制方法的表示方法：例如 －5    
第一步：首先要把5变成101的二进制形式  
第二步：再者就是安位取反，（形成前面全是1）010  
第三步：在最后加1 形成：11111111 11111111 11111111 11111011

CREATE OR REPLACE FUNCTION NUMBER\_2\_BIT(V\_NUM NUMBER) RETURN VARCHAR IS  
  V\_RTN VARCHAR(2000);  
  V\_N1  NUMBER;  
  V\_N2  NUMBER;  
BEGIN  
  V\_N1 := ABS(V\_NUM);  
  --如果为正数  
  IF SIGN(V\_NUM) > 0 THEN  
    LOOP  
      V\_N2  := MOD(V\_N1, 2);  
      V\_N1  := ABS(TRUNC(V\_N1 / 2));  
      V\_RTN := TO\_CHAR(V\_N2) || V\_RTN;  
      EXIT WHEN V\_N1 = 0;  
    END LOOP;  
     
    --dbms\_output.put\_line('正数结果'||V\_RTN);  
      
    --补全32位高位0  
    SELECT lpad(V\_RTN,32,0)  
    INTO   V\_RTN  
    FROM dual;  
     
     --dbms\_output.put\_line('正数补全结果'||V\_RTN);  
     
  ELSE  
    --转换为二进制同时按位取反  
    LOOP  
      V\_N2 := MOD(V\_N1, 2);  
      IF V\_N2 = 1 THEN  
        V\_N2 := 0;  
      ELSIF V\_N2 = 0 THEN  
        V\_N2 := 1;  
      END IF;  
      V\_N1  := ABS(TRUNC(V\_N1 / 2));  
      V\_RTN := TO\_CHAR(V\_N2) || V\_RTN;  
      EXIT WHEN V\_N1 = 0;  
    END LOOP;  
     
    --dbms\_output.put\_line('负数结果'||V\_RTN);  
     
    --补全32位高位1  
    SELECT lpad(V\_RTN,32,1)  
    INTO   V\_RTN  
    FROM dual;  
     
    --dbms\_output.put\_line('负数补全1结果'||V\_RTN);  
     
    --二进制转换为10机制，同时+1  
    SELECT SUM(data1) + 1  
    INTO V\_N1  
      FROM (SELECT substr(V\_RTN, rownum, 1) \* power(2, length(V\_RTN) - rownum) data1  
              FROM dual  
            CONNECT BY rownum <= length(V\_RTN));  
     
    -- dbms\_output.put\_line('转换为十进制数结果'||V\_RTN);  
      
    ----转换为二进制  
    LOOP  
      V\_N2 := MOD(V\_N1, 2);  
      V\_N1  := ABS(TRUNC(V\_N1 / 2));  
      V\_RTN := TO\_CHAR(V\_N2) || V\_RTN;  
      EXIT WHEN V\_N1 = 0;  
    END LOOP;  
     
    --dbms\_output.put\_line('负数转换结果'||V\_RTN);  
     
    --补全32位高位0  
    SELECT lpad(V\_RTN,32,0)  
    INTO   V\_RTN  
    FROM dual;  
     
    --dbms\_output.put\_line('负数补全0结果'||V\_RTN);  
     
  END IF;

RETURN V\_RTN;  
END;

出差厦门半个多月了，项目规划太差，困扰很多啊。从失败中吸取的教训是刻骨铭心的。以此为记。