ORACLE 用32進制表示月中的一天

        WHEN 'YMD' THEN
             v_year := to_char(SYSDATE, 'Y');
             v_month := FN_CONVERT_DECIMAL_TO_BASE(to_number(to_char(SYSDATE, 'MM')),32,1);
             v_day := FN_CONVERT_DECIMAL_TO_BASE(to_number(to_char(SYSDATE, 'DD')),32,1);
             v_str := v_year || v_month || v_day;

        WHEN 'YMDD' THEN 
              v_year := to_char(SYSDATE, 'Y');
              v_month := FN_CONVERT_DECIMAL_TO_BASE(to_number(to_char(SYSDATE, 'MM')),16,1);
              v_day :=to_char(SYSDATE, 'DD');

FUNCTION FN_CONVERT_DECIMAL_TO_BASE (P_DECIMAL_NUM IN INTEGER, P_DIGITAL_TYPE IN VARCHAR2, P_LEN IN INTEGER) RETURN VARCHAR2

IS    v_result_str        VARCHAR2 (20)   := '0';

   v_replace_str       VARCHAR2 (8000);  

  v_baseindex         INT             := 1;  

  v_quotient          INT             := p_decimal_num;

   v_digit             INT             := P_LEN - 1;

   v_digit_loop        INT             := 0;  

  v_basenumber        INT             := 0;  

  v_basebeginnumber   INT             := 10;  

  v_decodesql         VARCHAR2 (1000);  

  v_remainder         INT             := 0;

   v_baseloopnumber    INT             := 0;

   v_base_10            VARCHAR2(10) := '0123456789';  

v_base_16            VARCHAR2(16) := '0123456789ABCDEF';  

v_base_30            VARCHAR2(30) := '0123456789ABCDEFGHJKLMNPQRTWXY';  

v_base_32            VARCHAR2(32) := '0123456789ABCDEFGHJKLMNPRSTVWXYZ';

  v_base_33            VARCHAR2(33) := '0123456789ABCDEFGHJKLMNPQRSTVWXYZ';

  v_base_34            VARCHAR2(34) := '0123456789ABCDEFGHJKLMNPQRSTUVWXYZ';  

v_base_36            VARCHAR2(36) := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  v_base_code          varchar2(62) := '';

BEGIN  

CASE

P_DIGITAL_TYPE     WHEN '10' THEN      

    v_basenumber :=  LENGTH(v_base_10);   

       v_base_code  := v_base_10;   

  WHEN '16' THEN        

  v_basenumber :=  LENGTH(v_base_16);      

    v_base_code  := v_base_16;  

   WHEN '30' THEN        

  v_basenumber :=  LENGTH(v_base_30);   

       v_base_code  := v_base_30;   

  WHEN '32' THEN        

  v_basenumber :=  LENGTH(v_base_32);  

        v_base_code  := v_base_32;   

  WHEN '33' THEN         

v_basenumber :=  LENGTH(v_base_33);    

      v_base_code  := v_base_33;  

   WHEN '34' THEN        

  v_basenumber :=  LENGTH(v_base_34);     

     v_base_code  := v_base_34;    

WHEN '36' THEN        

  v_basenumber :=  LENGTH(v_base_36);  

         v_base_code  := v_base_36;   

END CASE;      

   v_baseloopnumber := v_basenumber - 10;   

v_digit_loop := v_digit;   

   IF v_basenumber = 10

THEN     

RETURN LPAD(P_DECIMAL_NUM,P_LEN,'0');   

   ELSE    

  v_result_str := LPAD(v_result_str,v_digit,'0');

   END IF;         

   LOOP      

v_decodesql :=             v_decodesql          || ''''          || v_basebeginnumber          || ''','''          || SUBSTR (v_base_code, v_basebeginnumber + 1, 1)          || ''',';   

    v_basebeginnumber := v_basebeginnumber + 1;    

   v_baseloopnumber := v_baseloopnumber - 1;  

     EXIT WHEN v_baseloopnumber = 0;    END LOOP;

   LOOP    

   v_remainder := MOD (v_quotient, v_basenumber);

      EXECUTE IMMEDIATE    'select Decode('                         || v_remainder                         || ' ,'                         || v_decodesql                         || v_remainder                         || ')    From dual '                    INTO v_replace_str;

      v_result_str :=             SUBSTR (v_result_str, 0, v_digit_loop)          || v_replace_str          || SUBSTR (v_result_str, v_digit_loop + 2, v_digit - v_digit_loop);       v_quotient := FLOOR (v_quotient / v_basenumber);       v_digit_loop := v_digit_loop - 1;       EXIT WHEN v_digit_loop < 0;    END LOOP;

   RETURN v_result_str; END FN_CONVERT_DECIMAL_TO_BASE;