Oracle 10進制轉36進制

CREATE OR REPLACE FUNCTION IDFMS.func_dec236 (parm IN INT DEFAULT 0)
   RETURN VARCHAR2
IS
   /*
   10進制數轉36進制數
   */
   src   VARCHAR2 (36) := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; --改爲其它字符串，就是任意進制
   LEN   INT;
   res   VARCHAR2 (10) := '';
   tmp   INT;
   val   INT;
BEGIN
   tmp := parm;
   len := LENGTH (src);

   WHILE (tmp >= 36)
   LOOP
      val := MOD (tmp, len);
      res := SUBSTR (src, val + 1, 1) || res;
      tmp := TRUNC (tmp / len);
   END LOOP;

   IF (tmp >= 0)
   THEN
      res := SUBSTR (src, tmp + 1, 1) || res;
   END IF;

   RETURN res;
END;
/