Oracle函数：求两个数的最小公倍数

 1 CREATE or replace function GetGbs(num1 NUMBER,num2 NUMBER) RETURN NUMBER is

 2   resultnum NUMBER;

 3   maxnum NUMBER;

 4   num3 NUMBER;

 5 begin

 6   IF num1 <= num2 THEN

 7     maxnum := num2;

 8   ELSE

 9     maxnum := num1;

10   END IF;

11    num3 := maxnum;

12    LOOP

13      IF ( MOD(num3,num1)=0 AND MOD(num3,num2)=0)THEN

14        resultnum := num3;

15        EXIT;  --如果if条件成功就跳出loop循环。

16      END IF;

17      num3 := num3 + 1;

18    END LOOP;

19   return(Resultnum);

20 end GetGbs;

该函数运用了loop的基本循环。

2015-02-26 15:34:21