ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Sql server 2005迁移至Oracle系列之四:在Oracle中创建位或运算函数-bitor

Sql server 2005迁移至Oracle系列之四:在Oracle中创建位或运算函数-bitor

原创 Linux操作系统 作者:iSQlServer 时间:2009-05-14 13:57:33 0 删除 编辑

CREATE OR REPLACE FUNCTION bitor
(
    n1 INT,
    n2 INT
) RETURN INTEGER IS
    RESULT INTEGER;
    i      INT := 0;
    g1     INT := 0;
    x      INT := 0;
    n11    INT;
    n12    INT;
    n21    INT;
    n22    INT;
BEGIN
    n11 := n1;
    n21 := n2;
    g1  := greatest(n11, n21);
    WHILE g1 / 2 > 0 LOOP
        n12 := MOD(n11, 2);
        n11 := trunc(n11 / 2);
        n22 := MOD(n21, 2);
        n21 := trunc(n21 / 2);
   
        x  := x + power(2, i) * greatest(n12, n22);
        g1 := greatest(n11, n21);
        i  := i + 1;
        IF g1 = 1 THEN
            n12 := MOD(n11, 2);
            n22 := MOD(n21, 2);
            x   := x + power(2, i) * greatest(n12, n22);
            EXIT;
        END IF;
    END LOOP;
    RETURN(x);
EXCEPTION
    WHEN OTHERS THEN
        RETURN(0);
END bitor;
/

原文:http://www.cnblogs.com/jinzhenshui/articles/1360218.html

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/16436858/viewspace-598137/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-10-17

  • 博文量
    1319
  • 访问量
    2087528