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;

ORACLE 用32進制表示月中的一天的更多相关文章

  1. Oracle 中的进制转换

    Oracle 中的进制转换 */--> Oracle 中的进制转换 Table of Contents 1. 进制名 2. 10进制与16进制互相转换 2.1. 10进制转换为16进制 2.2. ...

  2. 64位主机64位oracle下装32位客户端ODAC(NFPACS版)

    64位主机64位oracle下装32位客户端ODAC(NFPACS版) by dd 1.下载Oracle Data Access Components(ODAC) Xcopy的两个版本: x86:(我 ...

  3. 51nod1086(多重背包&二進制)

    題目鏈接:http://www.51nod.com/onlineJudge/questionCode.html#!problemId=1086 題意:中文題誒- 思路:很顯然這是一道多重背包題,不過這 ...

  4. php利用32进制实现对id加密解密

    前言 最近在项目中遇到一个问题,当前用户分享一个邀请码给好友,好友根据邀请码注册成为新用户之后,则成为当前用户的下级,特定条件下,可以得到下级用户的一系列返利.这里要实现的就是根据当前用户的id,生成 ...

  5. (64位oracle使用32位的PLSQL)安装64位的oracle数据库软件,使用32位的PLSQL Developer连接方法

    因为PLSQL Developer没有提供64位的,于是依据网上的资料做了一下整理,发上来 1.下载并安装Oracle 11g R2 64位,在server上安装时忽略硬件检測失败信息: 2.下载Or ...

  6. Windows Server 2008 R2 64位操作系统安装Oracle 11g 64位数据库,在客户终端上安装Oracle 11g 32位,才能安装P/L Sql Developer并配置

    1.下载Oracle 11g R2 for Windows的版本 下载地址: http://www.oracle.com/technetwork/database/enterprise-edition ...

  7. 让 Oracle 11g 32位运作在64位 Windows 上

    并非不能运行. 本人安装版未曾尝试,但绿色版倒是运行成功了. 很简单:注册表的位置发生了变化而已! 默认(32位.64位),oracle会读取以下注册表的位置:      [HKEY_LOCAL_MA ...

  8. Guid和Oracle中16进制字符的转换

    我们知道在Oracle中存的guid是16进制字符串,而在我们的C#代码中存的是guid对象,这样我会就要进行转换, 下面给出了两者进行转换的方法: public class Guid2RawProc ...

  9. [Oracle] - 使用32位 PLSQL(PL/SQL Developer)登陆64位Oracle失败之解决

    配置环境 Oracle服务端oracle_winx64_12c_database.iso Oracle客户端instantclient-basiclite-nt-12.1.0.1.0.zip 集成开发 ...

随机推荐

  1. 通过POI实现上传EXCEL的批量读取数据写入数据库

    最近公司新增功能要求导入excel,并读取其中数据批量写入数据库.于是就开始了这个事情,之前的文章,记录了上传文件,本篇记录如何通过POI读取excel数据并封装为对象上传. 上代码: 1.首先这是一 ...

  2. 【译】高级T-SQL进阶系列 (七)【上篇】:使用排序函数对数据进行排序

    [译注:此文为翻译,由于本人水平所限,疏漏在所难免,欢迎探讨指正] 原文链接:传送门. 什么是排序函数(Ranking Functions)? 排序函数基于一组记录的集合返回一个排序值.一个排序值其实 ...

  3. Docker安装、命令详情、层级架构、docker服务启动失败解决方法

    容器背景: 层级架构:  容器对比传统化虚拟机: 可以把docker理解成是一款自带软件(比如:nignx.tomcat.....)的镜像操作系统(首先是要下载镜像) 以下是Windows环境安装Do ...

  4. 使用电脑热点和Fiddler对Android app进行抓包

    如果没有路由器,怎么对app抓包?如果你的电脑可以开热点的话也可以. 打开Fiddler,菜单栏选择Tools->Options->Connections,勾选Allow remote c ...

  5. 「NOI2016」区间

    传送门 Luogu 解题思路 对于选出的区间,我们可以直接用线段树维护区间内单点被覆盖次数最大值. 那么解题重心便落在了选取方式上. 为了让最大值最小,考虑尺取,不能二分,降低效率而且不好写. 先将区 ...

  6. css 属性值 calc (目前只了解部分)

    移动端页面,有如下图的需求: 实现效果: 实现 css 代码: .list {/*父级*/ border: 1px solid #E9EAEA; border-radius: 2px; backgro ...

  7. 【快学SpringBoot】快速上手好用方便的Spring Cache缓存框架

    前言 缓存,在开发中是非常常用的.在高并发系统中,如果没有缓存,纯靠数据库来扛,那么数据库压力会非常大,搞不好还会出现宕机的情况.本篇文章,将会带大家学习Spring Cache缓存框架. 原创声明 ...

  8. 激活win10企业版,亲测可用,(win7步骤相同,请自行测试)

    其他版本我没试过,亲们可以尝试! win7神key win7神key1:2HYJ4-V71WM-BAF6Y-G2BTH-X8QOD win7神key2:9LM54-Z3LQ1-5IRAN-T4JNI- ...

  9. [03] Recursive Function递归应用

    递归应用 1.理解 百科:一种计算过程,如果其中每一步都要用到前一步或前几步的结果,称为递归的: 理解:函数调用自己的过程,这类函数处理的事情具有重复性,处理此类实行可用while或者for,但结构上 ...

  10. rtt学习之线程间同步与通信

    一 线程间的同步与互斥:信号量.互斥量.实践集 线程互斥是指对于临界区资源访问的排它性,如多个线程对共享内存资源的访问,生产消费型对产品的操作.临界区操作操作方法有: rt_hw_interrupt_ ...