ORACLE 数字转换人民币大写

 

 

示例.

 

数字                    :183066999230.68

人民币大写        :壹仟捌佰参拾亿陆仟陆佰玖拾玖万玖仟贰佰参拾圆陆角捌分

 

数字                    :999900000000

人民币大写        :玖仟玖佰玖拾玖亿圆整

 

 

 

Step 1.  Create Lookups:   CUX_CNY_DICTIONARY

(N) Application Developer > Application > Lookups > Application Object Library

 

 

Application Object Library Lookups

Type

CUX_CNY_DICTIONARY

Access Level

 

l    

User

 

Extensible

 

System

Meaning

CUX_CNY_DICTIONARY

Application

Application Object Library

Description

CNY character translation

 

Code

Meaning

Description

Tag

From

To

Enabled

[   ]

0

 

 

 

 

*

 

1

 

 

 

 

*

 

2

 

 

 

 

*

 

3

 

 

 

 

*

 

4

 

 

 

 

*

 

5

 

 

 

 

*

 

6

 

 

 

 

*

 

7

 

 

 

 

*

 

8

 

 

 

 

*

 

9

 

 

 

 

*

 

Q

 

 

 

 

*

 

B

 

 

 

 

*

 

S

 

 

 

 

*

 

Y

亿

 

 

 

 

*

 

W

 

 

 

 

*

 

U

 

 

 

 

*

 

Z

 

 

 

 

*

 

J

 

 

 

 

*

 

F

 

 

 

 

*

 

 

 

Step 2.  Create Function:       CUX_CONVERT_CNY

create or replace function cux_convert_cny(num in number) return varchar2

is

l_receive_number   number(14,2);

l_number   varchar2(100);

l_num_length  number;

l_unit  varchar2(100) := 'QBSGYQBSGWQBSG.JF';

l_cny  varchar2(200);

l_trans_cny  varchar2(200);

 

function translater(transNum in varchar2) return varchar2

is

l_meaning  varchar2(80);

begin

select flv.meaning

  into l_meaning

  from fnd_lookup_values_vl flv

 where     1 = 1

       and flv.enabled_flag = 'Y'

       and sysdate between nvl (flv.start_date_active, sysdate)

                       and nvl (flv.end_date_active, sysdate + 1)      

       and flv.lookup_code = transNum

       and flv.lookup_type = 'CUX_CNY_DICTIONARY'

       and flv.view_application_id = 0

       and flv.security_group_id = 0;

 

return l_meaning;      

end translater;

 

begin

 

--checking input number throw exception

select decode(num, 0, 'x', num) into l_receive_number from dual;

l_number := trim(to_char(l_receive_number, '9999,9999,9999.99'));

l_num_length := length(l_number);

 

--linking number and unit

for numIndex in 1..l_num_length loop

    l_cny := l_cny || (substr(l_number, numIndex, 1) || substr(l_unit, -(l_num_length-numIndex+1), 1));

end loop;

 

--replace symbol

select regexp_replace(l_cny, ',|\.', '') into l_cny from dual;

--insert UZ to 0J0F

select regexp_replace(l_cny, '(0J0F)', 'UZ') into l_cny from dual;

--insert U to xJxF

select regexp_replace(l_cny, '([0-9]J[0-9]F)', 'U\1') into l_cny from dual;

--replace more zero to blank

select regexp_replace(l_cny, '(0Q0B0S0GW)|(0Q0B0S0G)|(0B0S0G)|(0S0G)|(0G)|(G)|(0J)|(0F)', '') into l_cny from dual;

--replace more zero to zero

select regexp_replace(l_cny, '(0Q0B0S)|(0Q0B)|(0Q)|(0B)|(0S)', '0') into l_cny from dual;

 

--translation

for transIndex in 1..length(l_cny) loop

    l_trans_cny := l_trans_cny || translater(substr(l_cny,transIndex, 1));

end loop;

 

return l_trans_cny;

exception when others

then

fnd_file.put_line (fnd_file.output, sqlcode);

fnd_file.put_line (fnd_file.output, sqlerrm);

end;

 

 

 

 

Step 3.  Apply Function: CUX_CONVERT_CNY

 

select cux_convert_cny (183066999230.68) cny from dual;

 

select cux_convert_cny (999900000000) cny from dual;

 

 

 

 

 

 

 

 

 

 

 

 

 

Author

若愚

Creation Date

November 4, 2014

Last Updated

November 4, 2014

Version

V1411.2

 

ORACLE数字转换人民币大写的更多相关文章

  1. 数字转人民币大写(SQL SERVER)

    --数字转人民币大写NumToRMB ---新建方法create  FUNCTION dbo.NumToRMB (@num numeric(14,5))   RETURNS varchar(100) ...

  2. sql 数字转人民币大写函数(两种方法)

    ,)) returns @rmb table( 亿 ) ,仟万 ) ,佰万 ) ,拾万 ) ,万 ) ,仟 ) ,佰 ) ,拾 ) ,元 ) ,角 ) ,分 )) as begin insert in ...

  3. js将数字转换成大写的人民币表达式

    function changeNumMoneyToChinese(money) { var cnNums = new Array("零", "壹", " ...

  4. C# 数字转换成大写

    /// <summary> /// 数字转大写 /// </summary> /// <param name="Num">数字</para ...

  5. 【PHP】金额数字转换成大写形式

    <?php /*将数字金额转成大写*/ function num_to_upper($num) { $d = array('零','壹','贰','叁','肆','伍','陆','柒','捌', ...

  6. 实现数字转换RMB大写~

    实现的功能是将数字“673”转换成“陆佰柒拾叁”    “3681”转换成“叁仟陆佰捌拾壹”     “8007”转换成“捌仟零柒” 主要使用了数组和循环来实现 代码雏形 package com.te ...

  7. PHP实现金额数字转换成大写函数

    <?php header("Content-Type:text/html;charset=utf-8"); function num_to_upper($num) { $d ...

  8. 一个用php写的人民币数字转人民币大写的函数

      function num2rmb ($num) {     $c1 = "零壹贰叁肆伍陆柒捌玖";     $c2 = "分角元拾佰仟万拾佰仟亿";     ...

  9. php数字转人民币金额大写

    numToRmb.php <?php header("content-type:text/html;charset=utf-8"); function numToRmb($n ...

随机推荐

  1. iOS 项目中将 http 改成 https 后需要改动的地方(密钥验证)

    这种是不验证证书的密钥 AFSecurityPolicy *policy = [AFSecurityPolicy policyWithPinningMode:AFSSLPinningModeNone] ...

  2. CDT 错误 Cannot run program "gcc"

    Eclipse+CDT 编辑C/C++程序出错误: 出现编译错误: **** Rebuild of configuration Debug for project example **** **** ...

  3. js自执行函数表达式

    // 下面2个括弧()都会立即执行 (function () { /* code */ } ()); // 推荐使用这个(function () { /* code */ })(); // 但是这个也 ...

  4. redis基础-前篇

    设置键值 #设置值 set key value #获取值 get key 设置自增 #自增1 incr num #指定增长跨度 incrby num 10 设置自减 #自增1 decr num #指定 ...

  5. 安卓模拟器"bluestacks"在电脑上的设置.(宽,高)

    可以在手机上找到大量英语学习APP. 习惯使用电脑的朋友,可以安装模拟器来使用这些APP. bluestacks 是一款比较好的模拟器. 但其默认的宽,高,却无法在软件中修改. 找到一个比较好的教程来 ...

  6. python 自动化之路 day 03

    内容目录: 1. 字典 2. 集合 3. 文件处理 4. 字符编码   1. 字典操作 字典一种key - value 的数据类型,使用就像我们上学用的字典,通过笔划.字母来查对应页的详细内容. 语法 ...

  7. 通过shell脚本实现代码自动化部署

    通过shell脚本实现代码自动化部署 一.传统部署方式及优缺点 1.传统部署方式 (1)纯手工scp (2)纯手工登录git pull.svn update (3)纯手工xftp往上拉 (4)开发给打 ...

  8. PHP问题

    /usr/bin/ld: cannot find -lltdlcollect2: ld returned 1 exit statusmake: *** [libphp5.la] 错误 1 缺少libt ...

  9. IE8+等兼容、360调用webkit内核小记

    首先是处理IE8.9等的兼容问题,注意以下几点: 1,尽可能严格要求自己使用w3c推荐的方式编写html/css 2,在html页面顶部添加<!DOCHTML html>,不清楚请查看参考 ...

  10. centos 交换分区

    内容来自:http://www.huzs.net/?p=1683 一般在桌面型的用不到,因为现在内存都比较大,服务器就不一样了,但是建议无论是在桌面还是服务器上,都设置 swap 以下操作都是在 ro ...