千家信息网

请输入关键字词

热门搜索排行

最新搜索排行

导航： 首页 > 互联网科技 >

plsql小写金额转大写金额函数

发表于：2025-12-02 作者：千家信息网编辑
千家信息网最后更新 2025年12月02日，create or replace function comm.F_upper_money(p_num in number default null)return nvarchar2 is/*Ver:
千家信息网最后更新 2025年12月02日plsql小写金额转大写金额函数
  • create or replace function comm.F_upper_money(p_num in number default null)
  • return nvarchar2 is
  • /*Ver:1.0 Created By xsb on 2003-8-18 For:
  • 将金额数字(单位元)转换为大写(采用从低至高算法)
  • 数字整数部分不得超过16位,可以是负数。
  • Ver：1.1 Modified By xsb on 2003-8-20 For:个位数处理也放在For循环中。
  • Ver：1.2 Modified By xsb on 2003-8-22 For:分后不带整字。
  • Ver：1.3 Modified By xsb on 2003-8-28 For:完善测试用例。
  • 测试用例:
  • SET HEAD OFF
  • SET FEED OFF
  • select '无参数时='||f_upper_money() from dual;
  • select 'null='||f_upper_money(null) from dual;
  • select '0='||f_upper_money(0) from dual;
  • select '0.01='||f_upper_money(0.01) from dual;
  • select '0.126='||f_upper_money(0.126) from dual;
  • select '01.234='||f_upper_money(01.234) from dual;
  • select '10='||f_upper_money(10) from dual;
  • select '100.1='||f_upper_money(100.1) from dual;
  • select '100.01='||f_upper_money(100.01) from dual;
  • select '10000='||f_upper_money(10000) from dual;
  • select '10012.12='||f_upper_money(10012.12) from dual;
  • select '20000020.01='||f_upper_money(20000020.01) from dual;
  • select '3040506708.901='||f_upper_money(3040506708.901) from dual;
  • select '40005006078.001='||f_upper_money(40005006078.001) from dual;
  • select '-123456789.98='||f_upper_money(-123456789.98) from dual;
  • select '123456789123456789.89='||f_upper_money(123456789123456789.89) from dual;

  • */
  • Result nvarchar2(100); --返回字符串
  • num_round nvarchar2(100) := to_char(abs(round(p_num, 2))); --转换数字为小数点后2位的字符(正数)
  • num_left nvarchar2(100); --小数点左边的数字
  • num_right nvarchar2(2); --小数点右边的数字
  • str1 nchar(10) := '零壹贰叁肆伍陆柒捌玖'; --数字大写
  • str2 nchar(16) := '元拾佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)
  • num_pre number(1) := 1; --前一位上的数字
  • num_current number(1); --当前位上的数字
  • num_count number := 0; --当前数字位数

  • begin
  • if p_num is null then
  • return null;
  • end if; --转换数字为null时返回null

  • select to_char(nvl(substr(to_char(num_round),
  • 1,
  • decode(instr(to_char(num_round), '.'),
  • 0,
  • length(num_round),
  • instr(to_char(num_round), '.') - 1)),
  • 0))
  • into num_left
  • from dual; --取得小数点左边的数字
  • select substr(to_char(num_round),
  • decode(instr(to_char(num_round), '.'),
  • 0,
  • length(num_round) + 1,
  • instr(to_char(num_round), '.') + 1),
  • 2)
  • into num_right
  • from dual; --取得小数点右边的数字

  • if length(num_left) > 16 then
  • return '**********';
  • end if; --数字整数部分超过16位时

  • --采用从低至高的算法，先处理小数点右边的数字
  • if length(num_right) = 2 then
  • if to_number(substr(num_right, 1, 1)) = 0 then
  • result := '零' ||
  • substr(str1, to_number(substr(num_right, 2, 1)) + 1, 1) || '分';
  • else
  • result := substr(str1, to_number(substr(num_right, 1, 1)) + 1, 1) || '角' ||
  • substr(str1, to_number(substr(num_right, 2, 1)) + 1, 1) || '分';
  • end if;
  • elsif length(num_right) = 1 then
  • result := substr(str1, to_number(substr(num_right, 1, 1)) + 1, 1) || '角整';
  • else
  • result := '整';
  • end if;
  • --再处理小数点左边的数字
  • for i in reverse 1 .. length(num_left) loop
  • --(从低至高)
  • num_count := num_count + 1; --当前数字位数
  • num_current := to_number(substr(num_left, i, 1)); --当前位上的数字
  • if num_current > 0 then
  • --当前位上数字不为0按正常处理
  • result := substr(str1, num_current + 1, 1) ||
  • substr(str2, num_count, 1) || result;
  • else
  • --当前位上数字为0时
  • if mod(num_count - 1, 4) = 0 then
  • --当前位是元、万或亿时
  • result := substr(str2, num_count, 1) || result;
  • num_pre := 0; --元、万,亿前不准加零
  • end if;
  • if num_pre > 0 or length(num_left) = 1 then
  • --上一位数字不为0或只有个位时
  • result := substr(str1, num_current + 1, 1) || result;
  • end if;
  • end if;
  • num_pre := num_current;
  • end loop;

  • if p_num < 0 then
  • --转换数字是负数时
  • result := '负' || result;
  • end if;

  • return Result;

  • exception
  • when others then
  • raise_application_error(-20001, '数字转换大写出现错误！' || sqlerrm);
  • end;

    • 很赞哦！
    数字 小数 小数点 处理 大写 位数 右边 个位 字符 整数 算法 负数 部分 测试 金额 个位数 单位 参数 只有 字符串 数据库的安全要保护哪些东西 数据库安全各自的含义是什么 生产安全数据库录入 数据库的安全性及管理 数据库安全策略包含哪些 海淀数据库安全审计系统 建立农村房屋安全信息数据库 易用的数据库客户端支持安全管理 连接数据库失败ssl安全错误 数据库的锁怎样保障安全 密云区口碑好的软件开发平台 合肥昊阳网络技术服务部 深圳光合维度软件开发工资 力控向数据库插入实型字段 省市县数据库js 南充供电公司网络安全卫士 车联网软件开发什么语言 阿里云服务器怎么开电脑桌面 地平线应用软件开发面试 如果解决网络安全的硬件因素 网络安全缺陷 软件开发客服话术 信创服务器多少钱 LUM数据库技术支持 密云区信息化网络技术服务好处 数据库关联表 bll 市场监管四措网络安全 数据库应用技术基础考试 局域网搭建cdn服务器 tp钱包软件开发 深圳光合维度软件开发工资 王者服务器选哪个区人最多 ibm服务器有两根线吗 信创服务器多少钱 代码实现数据库同步 吴江网络技术支持价格 python 数据库库 国产数据库可行性分析 小型超市库存管理数据库 网络安全行业组织架构

    相关文章

    0