OraclePLSQL将金额数字转换成大写 plsql大小写转换
SMALLMONEY VARCHAR2
)
RETURN VARCHAR2 IS
BIGWRITE VARCHAR2(54); -- 用于负担会答谢的钱数
BIGNUMVARCHAR(2);-- 用于存放每一个阿拉伯数字对应的汉子
RMBVARCHAR(2);-- 用于存放人民币单位
MONEYPLACENUMBER;-- 用于确定人民币的精度,最多只能精确到分
DOTPLACENUMBER;-- 确定小数点的位置
MONEYNUMNUMBER;-- 人民币的位置
MYEXCEPTION EXCEPTION; -- 自定义异常
BEGIN
DOTPLACE :=INSTR(SMALLMONEY,'.');
IF(LENGTH(SMALLMONEY) > 14)OR ((LENGTH(SMALLMONEY) > 12) AND (DOTPLACE = 0)) THEN
RAISE MYEXCEPTION;
END IF;
IF DOTPLACE = 0 THEN
MONEYPLACE := 0;
ELSE
MONEYPLACE := DOTPLACE - LENGTH(SMALLMONEY);
END IF;
FOR MONEYNUM IN REVERSE1..LENGTH(SMALLMONEY) LOOP
IF MONEYNUM <> DOTPLACE THEN
CASE SUBSTR(SMALLMONEY,MONEYNUM,1)
WHEN '1' THEN BIGNUM := '壹';
WHEN '2' THEN BIGNUM := '贰';
WHEN '3' THEN BIGNUM := '叁';
WHEN '4' THEN BIGNUM := '肆';
WHEN '5' THEN BIGNUM := '伍';
WHEN '6' THEN BIGNUM := '陆';
WHEN '7' THEN BIGNUM := '柒';
WHEN '8' THEN BIGNUM := '捌';
WHEN '9' THEN BIGNUM := '玖';
WHEN '0' THEN BIGNUM := '零';
END CASE;
CASE MONEYPLACE
WHEN '-2' THEN RMB := '分';
WHEN '-1' THEN RMB := '角';
WHEN '0' THEN RMB := '元';
WHEN '1' THEN RMB := '拾';
WHEN '2' THEN RMB := '佰';
WHEN '3' THEN RMB := '仟';
WHEN '4' THEN RMB := '萬';
WHEN '5' THEN RMB := '拾';
WHEN '6' THEN RMB := '佰';
WHEN '7' THEN RMB := '仟';
WHEN '8' THEN RMB := '亿';
WHEN '9' THEN RMB := '拾';
WHEN '10' THEN RMB := '佰';
WHEN '11' THEN BIGNUM := '仟';
END CASE;
MONEYPLACE := MONEYPLACE + 1;
IF BIGWRITE IS NULL THEN
BIGWRITE := BIGNUM || RMB;
ELSE
BIGWRITE := BIGNUM || RMB || BIGWRITE;
END IF;
END IF;
END LOOP;
RETURN BIGWRITE;
EXCEPTION -- 异常处理部分
WHEN MYEXCEPTION THEN
DBMS_OUTPUT.PUT_LINE('该函数只能转换长度不大于14位或整数位不大于12位的钱数!');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('不是有效的钱数!');
END SMALITOBLG;
更多阅读
如何将swf格式转换为MP4格式最好最简单 ! swf格式怎么转换成mp4
如何将swf格式转换为MP4格式(最好最简单)!——简介将Flash中swf格式转换成视频MP4等格式是非常麻烦的一件事,由于SWF是一种基于矢量图形的特殊视频格式,普通视频转换软件难以直接处理,虽然市面上有许多的相关软件是以先录制后转换的模式完
将CDA文件转换成MP3格式 cda转换mp3格式软件
将CDA文件转换成MP3格式——简介很多高保真光碟上的歌曲是CDA格式的,以Track01.cda、Track02.cda这样的格式命名的,但这些CDA文件却只有1K,网上找来工具发现也不能将CDA格式转换成MP3或WAV格式的。但用用Windows Media Player是可以将C
怎么将word保存/转换成PDF格式 word转换pdf格式软件
怎么将word保存/转换成PDF格式——简介 首先,说说为什么要保存成pdf呢? 先问大家一个问题:你是否碰过这样一种现象——在自己的电脑上把文档写好了,然后拿到其它电脑上去阅读或者打印,你发现字体变了、格式乱了。总之版式大乱,面目全非
如何将Mapgis图形转成CAD图形 mapgis转换cad
如何将Mapgis图形转成CAD图形——简介有的朋友习惯用cad,需要将mapgis图件转换成cad图件,下面给大家示范一下转图的步骤,希望对您有用。如何将Mapgis图形转成CAD图形——工具/原料section插件:小巧、实用如何将Mapgis图形转成CAD图形—
如何将pdf文件转换成html文件 将html文件转换为pdf
如何将pdf文件转换成html文件——简介pdf文件是我们在工作生活中用的非常多高质量文件格式,有时我们需要将pdf转换成html网页文件,便于嵌入网页中,并且可以提取 PDF 中的图片。如何将pdf文件转换成html文件——工具/原料电脑pdf转换