返回顶部

金额大写转小写SQL

[复制链接]
骑单车的小女孩Lv.2 显示全部楼层 发表于 2016-12-30 00:22:43 |阅读模式 打印 上一主题 下一主题

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 骑单车的小女孩 于 2016-12-30 00:24 编辑

金额大写转小
  1. Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is

  2.   strYuan       Varchar2(150);

  3.   strYuanFen    Varchar2(152);

  4.   numLenYuan    Number;

  5.   numLenYuanFen Number;

  6.   strRstYuan    Varchar2(600);

  7.   strRstFen     Varchar2(200);

  8.   strRst        Varchar2(800);

  9.   Type typeTabMapping Is Table Of Varchar2(2) Index By Binary_Integer;

  10.   tabNumMapping  typeTabMapping;

  11.   tabUnitMapping typeTabMapping;

  12.   numUnitIndex   Number;

  13.   i              Number;

  14.   j              Number;

  15.   charCurrentNum Char(1);

  16. Begin

  17.   If Money Is Null Then

  18.     Return Null;

  19.   End If;

  20.   strYuan := TO_CHAR(FLOOR(Money));

  21.   If strYuan = '0' Then

  22.     numLenYuan := 0;

  23.     strYuanFen := lpad(TO_CHAR(FLOOR(Money * 100)), 2, '0');

  24.   Else

  25.     numLenYuan := length(strYuan);

  26.     strYuanFen := TO_CHAR(FLOOR(Money * 100));

  27.   End If;

  28.   If strYuanFen = '0' Then

  29.     numLenYuanFen := 0;

  30.   Else

  31.     numLenYuanFen := length(strYuanFen);

  32.   End If;

  33.   If numLenYuan = 0 Or numLenYuanFen = 0 Then

  34.     strRst := '零圆整';

  35.     Return strRst;

  36.   End If;

  37.   tabNumMapping(0) := '零';

  38.   tabNumMapping(1) := '壹';

  39.   tabNumMapping(2) := '贰';

  40.   tabNumMapping(3) := '叁';

  41.   tabNumMapping(4) := '肆';

  42.   tabNumMapping(5) := '伍';

  43.   tabNumMapping(6) := '陆';

  44.   tabNumMapping(7) := '柒';

  45.   tabNumMapping(8) := '捌';

  46.   tabNumMapping(9) := '玖';

  47.   tabUnitMapping(-2) := '分';

  48.   tabUnitMapping(-1) := '角';

  49.   tabUnitMapping(1) := '';

  50.   tabUnitMapping(2) := '拾';

  51.   tabUnitMapping(3) := '佰';

  52.   tabUnitMapping(4) := '仟';

  53.   tabUnitMapping(5) := '万';

  54.   tabUnitMapping(6) := '拾';

  55.   tabUnitMapping(7) := '佰';

  56.   tabUnitMapping(8) := '仟';

  57.   tabUnitMapping(9) := '亿';

  58.   For i In 1 .. numLenYuan Loop

  59.     j            := numLenYuan - i + 1;

  60.     numUnitIndex := Mod(i, 8);

  61.     If numUnitIndex = 0 Then

  62.       numUnitIndex := 8;

  63.     End If;

  64.     If numUnitIndex = 1 And i > 1 Then

  65.       strRstYuan := tabUnitMapping(9) || strRstYuan;

  66.     End If;

  67.     charCurrentNum := substr(strYuan, j, 1);

  68.     If charCurrentNum <> 0 Then

  69.       strRstYuan := tabNumMapping(charCurrentNum) ||

  70.                     tabUnitMapping(numUnitIndex) || strRstYuan;

  71.     Else

  72.       If (i = 1 Or i = 5) Then

  73.         If substr(strYuan, j - 3, 4) <> '0000' Then

  74.           strRstYuan := tabUnitMapping(numUnitIndex) || strRstYuan;

  75.         End If;

  76.       Else

  77.         If substr(strYuan, j + 1, 1) <> '0' Then

  78.           strRstYuan := tabNumMapping(charCurrentNum) || strRstYuan;

  79.         End If;

  80.       End If;

  81.     End If;

  82.   End Loop;

  83.   For i In -2 .. -1 Loop

  84.     j              := numLenYuan - i;

  85.     charCurrentNum := substr(strYuanFen, j, 1);

  86.     If charCurrentNum <> '0' Then

  87.       strRstFen := tabNumMapping(charCurrentNum) || tabUnitMapping(i) ||

  88.                    strRstFen;

  89.     End If;

  90.   End Loop;

  91.   If strRstYuan Is Not Null Then

  92.     strRstYuan := strRstYuan || '圆';

  93.   End If;

  94.   If strRstFen Is Null Then

  95.     strRstYuan := strRstYuan || '整';

  96.   Elsif length(strRstFen) = 2 And substr(strRstFen, 2) = '角' Then

  97.     strRstFen := strRstFen || '整';

  98.   End If;

  99.   strRst := strRstYuan || strRstFen;

  100.   --strRst := Replace(strRst, '亿零', '亿');

  101.   --strRst := Replace(strRst, '万零', '万');

  102.   Return strRst;

  103. End Money2Chinese;
复制代码

写SQL
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

云萌主 云萌主-BIGSAAS旗下,由北京合智互联信息技术有限公司在2018年创立,为广大云应用技术爱好者的平台。在云萌主论坛可以查看云应用技术文章、云产品产品最新资讯、技术问答、技术视频。在畅游云上技术的同时,学到最新的云应用产品和技术。
  • 微信公众号

  • Powered by Discuz! X3.4 | Licensed | Copyright © 2001-2022, Aliyun Cloud. | 星点互联设计
  • 京ICP备18052714号 | 营业执照 | |合智互联| QQ