博客分类：
今天工作中遇到了要改货币金额转换为大写显示的需求,找到了一些前辈们的代码,总结了一下贴出来,以备以后查看学习使用.
1.专门用于转化年份的函数TO_UPPER_YEAR.
CREATE OR REPLACE FUNCTION TO_UPPER_YEAR(YEAR_IN
IN VARCHAR2)
RETURN VARCHAR2
*年转化为大写汉字的函数 如将2008转换为二〇〇八
*月份和日期转换的可以调用 TO_UPPER_NUM 函数
*如SELECT TO_UPPER_NUM('21','2','2') FROM DUAL
*查询系统大写年月日如下:
*SELECT TO_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||
TO_UPPER_NUM(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||
TO_UPPER_NUM(TO_CHAR(SYSDATE,'DD'),'2','2') || '日'
*FROM DUAL
VARCHAR2(32767);
VARCHAR2(32767);
VARCHAR2(32767) := '〇一二三四五六七八九';
IF YEAR_IN IS NULL THEN
RETURN NULL;
FOR I IN 1 .. LENGTH(YEAR_IN)
SELECT SUBSTR(STR, SUBSTR(YEAR_IN,I, 1) + 1, 1)
FROM DUAL;
RESULT := RESULT || TEMP;
RETURN RESULT;
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLERRM);
RETURN '';
2.用于阿拉伯数字转化为大写汉字的函数TO_UPPER_NUM.
CREATE OR REPLACE FUNCTION TO_UPPER_NUM
IN NUMBER DEFAULT NULL,
P_ROUND NUMBER
DEFAULT 2,
--输出要保留的小数位数
P_MONTH NUMBER
--输出不为月份或者日时,当此参数输入不为1时,返回值为大写(非汉字)数字
*阿拉伯数字转化为大写汉字的函数
*输入参数转换前的数字,要保留的小数位数(4舍5入可以不输入,默认为小数点后2位)
*输出参数为转化后的大写数字
*支持小数点和负数,但数字整数部分不能超过16位
*支持转换月份和日期,如 SELECT TO_UPPER_NUM('31','3','2') FROM DUAL
*--日期例子(年份的转换见另一个函数)
SELECT TO_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||
TO_UPPER_NUM(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||
TO_UPPER_NUM(TO_CHAR(SYSDATE,'DD'),'2','2') || '日'
FROM DUAL ;
*--货币例子(截取小数点后两位,四舍五入)
SELECT TO_UPPER_NUM() FROM
NVARCHAR2(100) := ''; --返回大写汉字字符串
NVARCHAR2(100) := TO_CHAR(ABS(ROUND(P_NUM, P_ROUND))); --转换数字为小数点后p_round位的字符(正数)
NVARCHAR2(100);
--小数点左边的数字
NVARCHAR2(100);
--小数点右边的数字
NCHAR(10) := '零壹贰叁肆伍陆柒捌玖';
--数字大写
NCHAR(16) := '点拾佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)
NCHAR(10) := '〇一二三四五六七八九';
--月份数字大写
NCHAR(16) := '点十佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)
NUMBER(1) := 1;
--前一位上的数字
NUM_CURRENT NUMBER(1);
--当前位上的数字
NUMBER := 0;
--当前数字位数
--转换数字为NULL时，返回NULL
IF P_NUM IS NULL THEN
RETURN NULL;
--如果要转换月份或者日时,则替换临时变量
IF P_MONTH && 1 THEN
STR1 := STR3;
STR2 := STR4;
--取得小数点左边的数字
SELECT TO_CHAR(NVL(SUBSTR(TO_CHAR(NUM_ROUND),
DECODE(INSTR(TO_CHAR(NUM_ROUND), '.'),
LENGTH(NUM_ROUND),
INSTR(TO_CHAR(NUM_ROUND), '.') - 1)),
INTO NUM_LEFT
FROM DUAL;
--取得小数点右边的数字
SELECT SUBSTR(TO_CHAR(NUM_ROUND),
DECODE(INSTR(TO_CHAR(NUM_ROUND), '.'),
LENGTH(NUM_ROUND) + 1,
INSTR(TO_CHAR(NUM_ROUND), '.') + 1),
INTO NUM_RIGHT
FROM DUAL;
--数字整数部分超过16位时.采用从低至高的算法，先处理小数点左边的数字
IF LENGTH(NUM_LEFT) & 16 THEN
RETURN '**********';
FOR I IN REVERSE 1 .. LENGTH(NUM_LEFT) LOOP
--(从低至高)
NUM_CURRENT := TO_NUMBER(SUBSTR(NUM_LEFT, I, 1)); --当前位上的数字
:= NUM_COUNT + 1;
--当前数字位数
--当前位上数字不为0按正常处理
IF NUM_CURRENT & 0 THEN
--如果转换数字最高位是十位,转换后不需要前面的壹,如月份12转换后为拾贰,则
IF NUM_CURRENT = 1 AND P_MONTH && 1 AND NUM_COUNT = 2 THEN
SUBSTR(STR2, NUM_COUNT, 1) || RESULT;
STR1 := STR3;
RESULT := SUBSTR(STR1, NUM_CURRENT + 1, 1)
||SUBSTR(STR2, NUM_COUNT, 1)
|| RESULT;
--当前位上数字为0时
IF MOD(NUM_COUNT - 1, 4) = 0 THEN
--当前位是点、万或亿时
:= SUBSTR(STR2, NUM_COUNT, 1) || RESULT;
NUM_PRE := 0; --点、万,亿前不准加零
IF NUM_PRE & 0 OR LENGTH(NUM_LEFT) = 1 THEN
--上一位数字不为0或只有个位时
RESULT := SUBSTR(STR1, NUM_CURRENT + 1, 1) || RESULT;
NUM_PRE := NUM_CURRENT;
--再处理小数点右边的数字
IF LENGTH(NUM_RIGHT) & 0 THEN
FOR I IN 1 .. LENGTH(NUM_RIGHT) LOOP
--(从高至低)
NUM_CURRENT := TO_NUMBER(SUBSTR(NUM_RIGHT, I, 1)); --当前位上的数字
:= RESULT || SUBSTR(STR1, NUM_CURRENT + 1, 1);
RESULT := REPLACE(RESULT, '点', '');
--无小数时去掉点
--转换数字是负数时
IF P_NUM & 0 THEN
RESULT := '负' || RESULT;
RETURN RESULT;
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLERRM);
RETURN '';
论坛回复 /
(0 / 2409)
ysj5125094
浏览: 1162378 次
来自: 沈阳
PDMReader实现pdm建模快速导出word,html文件 ...
roompig 写道beancopier只实现了浅拷贝的功能， ...
Java实现导入导出excel文件，利用poi实现感觉代码比较 ...
部署之后启动有问题org.springframework.be ...
谢谢分享。部署之后启动有问题org.springframewo ...
(window.slotbydup=window.slotbydup || []).push({
id: '4773203',
container: s,
size: '200,200',
display: 'inlay-fix'在Excel中如何把阿拉伯数字自动转换成大写数字？_百度知道
在Excel中如何把阿拉伯数字自动转换成大写数字？
比如当我在Excel中设制了一个收据的样板，我在小写金额栏里输入了1234时，在大写栏里会自动生成大写的数字.怎么操作呢？请高手指教下~~...
比如当我在Excel中设制了一个收据的样板，我在小写金额栏里输入了1234时，在大写栏里会自动生成大写的数字. 怎么操作呢？请高手指教下~~
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
陈绪什么都不懂
来自电脑网络类芝麻团
陈绪什么都不懂
采纳数：132
获赞数：124
参与团队：
用内置函数numbeistring，或者用代码定义数字格式都可以达到把阿拉伯数字转换成大写数字的目的。1、numbeistring的用法如下，假设需要转换的数字位于A1，公式为=numberstring（A1，2），要注意的是，numberstring转换成数字不包括小数点后数字的转换，如100.15，转换后显示为壹佰，缺失小数点后数字。2、用代码的形式配合文本函数text可用于财务上的阿拉伯数字转换成大写数字，具体如下，假设A1单元格中数字为100.15，设置公式为=TEXT(A1*100,&[DBnum2]0万0仟0佰0拾0元0角0分&)，显示结果为&零万零仟壹佰零拾伍元壹角伍分&。两种转换方法都视需求而使用，也可以通过上述的两种函数，另外增加转换之后输入的数字格式。
对要设置的单元格,点右键选择&设置单元格格式&,出现&单元格格式对话框&,选择数字模块中的&特殊&,然后在类型框中,出现&邮政编码&&中文小写数字&&中文大写数字&选择,最后那个点确定就可以了..
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。05-1502-1602-1602-1602-1602-1602-1602-1602-1602-16最新范文01-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-01查看: 2888|回复: 2
如何把中文大写数字转换为小写阿拉伯数字？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: 無心
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2010&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Q:如图：如何把中文大写数字转换为小写阿拉伯数字？
456.jpg (24.39 KB, 下载次数: 0)
如何把中文大写数字转换为小写阿拉伯数字？
21:37 上传
A:数组公式：
=MATCH(A1,TEXT(ROW($1:$99),&[&32][dbnum1]d;[dbnum1]&),)复制代码
(7.61 KB, 下载次数: 23)
21:37 上传
点击文件名下载附件
如何把中文大写数字转换为小写阿拉伯数字？
& & & & & & & & & & & & & & & &
本主题已经同步到
高级一, 积分 1589, 距离下一级还需 311 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
实用，应该叫中文小写数字转换为小写数字，把公式中的[dbnum1]换成[dbnum2]就可以转换中文大写数字为小写数字。
新鲜人, 积分 0, 距离下一级还需 10 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
一楼的位置好啊..
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by易语言关于大写数字自动变成阿拉伯数字_易语言吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：151,057贴子：
易语言关于大写数字自动变成阿拉伯数字收藏
编辑框1内容=编辑框2内容如：编辑框1内容为：叁仟贰佰拾
编辑框2内容变成：3200注编辑框1内容不是固定值，是可随时输入的。请高手帮助，谢谢！
编辑框2.内容 ＝ 数值到金额 (到数值 (编辑框1.内容), 假)这个是从数字转换成金额大写
二楼做法我用过，可不行呀。
直接用“数值到大写（）”就好了
=========================坟贴勿回=====================================
★★★ 坟贴勿回 楼下一天 ★★★
叁仟贰佰拾
学习学习，刚刚接触这个，感觉很好玩，就是太难
登录百度帐号