详解Oracle中数字与大写交换

您当前所在位置：首页 → 数据库 → Oracle → 详解Oracle中数字与大写交换

详解Oracle中数字与大写交换 时间：2015-06-28 00:00:00 来源：绿色软件之家作者：网管联盟 我要评论(1)

对于数字大小写的转换，也是有一定中国特色的东西。但是在账务报表中，我们还是需要有这样的功能的。今天写了一个将数字金额转化为大写的函数。

功能：将任意长度的数字金额转化为大写。最低位为圆或角时，后面加"整"；为"分"时不加"整"。

说明：小数点后保留两位。超过两位的部分被截断。

代码：

PL/SQL?代码 ?
Create?Or?Replace?Function?Money2Chinese(Money?In?Number)?Return?Varchar2?Is?
??strYuan?Varchar2(150); ?
??strYuanFen????Varchar2(152); ?
??numLenYuan????Number; ?
??numLenYuanFen?Number; ?
??strRstYuan????Varchar2(600); ?
??strRstFen?????Varchar2(200); ?
??strRst??Varchar2(800); ?
??Type?typeTabMapping?Is?Table?Of?Varchar2(2)?Index?By?Binary_Integer; ?
??tabNumMapping??typeTabMapping; ?
??tabUnitMapping?typeTabMapping; ?
??numUnitIndex???Number; ?
??i??Number; ?
??j??Number; ?
??charCurrentNum?Char(1); ?
Begin?
??If?Money?Is?Null?Then?
????Return?Null; ?
??End?If; ?
??strYuan?:=?TO_CHAR(FLOOR(Money)); ?
??If?strYuan?=?'0'?Then?
????numLenYuan?:=?0; ?
????strYuanFen?:=?lpad(TO_CHAR(FLOOR(Money?*?100)),?2,?'0'); ?
??Else?
????numLenYuan?:=?length(strYuan); ?
????strYuanFen?:=?TO_CHAR(FLOOR(Money?*?100)); ?
??End?If; ?
??If?strYuanFen?=?'0'?Then?
????numLenYuanFen?:=?0; ?
??Else?
????numLenYuanFen?:=?length(strYuanFen); ?
??End?If; ?
??If?numLenYuan?=?0?Or?numLenYuanFen?=?0?Then?
????strRst?:=?'零圆整'; ?
????Return?strRst; ?
??End?If; ?
??tabNumMapping(0)?:=?'零'; ?
??tabNumMapping(1)?:=?'壹'; ?
??tabNumMapping(2)?:=?'贰'; ?
??tabNumMapping(3)?:=?'叁'; ?
??tabNumMapping(4)?:=?'肆'; ?
??tabNumMapping(5)?:=?'伍'; ?
??tabNumMapping(6)?:=?'陆'; ?
??tabNumMapping(7)?:=?'柒'; ?
??tabNumMapping(8)?:=?'捌'; ?
??tabNumMapping(9)?:=?

相关阅读

文章评论

查看所有1条评论>>