两位数字金额转化为大写格式

原创 2015年12月12日 15:28:07
 IV_MONEY ABSIV_MONEY ).
  DATASCR(30TYPE CRES(60TYPE C,FEN(2TYPE .
  DATALEN TYPE IC1 TYPE IC2 TYPE IC3 TYPE IC4 TYPE I.
  DATAD1(1TYPE CD2(1TYPE CD3 TYPE I.
  DATADIGIT(2)  TYPE CWEIGHT(2TYPE C.
  DATARULE1(20TYPE VALUE '零壹贰叁肆伍陆柒捌玖'.
  DATARULE2(30TYPE VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万'.
  SCR IV_MONEY * 100.
  CONDENSE SCR NO-GAPS.
  IF SCR '0'.
    RES '零元'.
  ELSE.
    LEN STRLENSCR ).
    C1 0.
    D1 '0'.
    CLEAR RES.
    DO LEN TIMES.
      C1 C1 + 1.
      C2 LEN C1.
      D2 SCR+C2(1.
      IF D2 '0'.
        D3 0.
      ELSE.
        D3 D2.
      ENDIF.
      DIGIT RULE1+D3(1.
      C3 C1 .
      WEIGHT RULE2+C3(1.
      IF D2 '0'.
        IF C1 3.
          DIGIT ''.
        ELSEIF C1 7.
          DIGIT ''.
          IF LEN > 10 .
            C4 LEN 10.
            IF SCR+C4(4'0000'.
              WEIGHT ''.
            ENDIF.
          ENDIF.
        ELSEIF C1 11.
          DIGIT ''.
        ELSEIF D1 '0'.
          DIGIT ''.
          WEIGHT ''.
        ELSE.
          WEIGHT ''.
        ENDIF.
      ENDIF.
      CONCATENATE DIGIT WEIGHT RES INTO RES .
      D1 D2.
    ENDDO.
  ENDIF.
  LEN STRLENRES 1.
  FEN RES+LEN(1).
  IF FEN <> '分' .
    CONCATENATE RES '整' INTO EV_MONEY.
  ELSE.
    EV_MONEY RES.
  ENDIF.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

人民币金额中数字格式转化为中文的人民币大写格式的全部代码

最近搞一个金额转汉语中大写的需求,网上大神就是多啊,扒了一个比较靠谱的,再次贴上,收藏!!! package cn.yake; import java.math.BigDecimal; /** ...

java代码中将金额阿拉伯数字转化为中文大写

代码如下: /** * 金额大小写转换 * * @param input * @return */ public static String numtochinese(Str...

JS 保留2位小数 数字金额转化为文字大写

//保留2位小数       function changeTwoDecimal(x)  {                var f_x = parseFloat(x);              ...

MSSql 自定义函数实现小写金额转换成大写(最高13位不包括小数点后两位)

今天做项目的时候,需要生成WORD文档,然后要求把小写金额全部转换为大写,于是乎分享代码---功能:小写金额转换成大写(最高13位不包括小数点后两位)...

将人民币大写金额格式转为数字金额格式C#代码

网上相关资料都是将数字金额转换为大写金额的代码,因为需要所以自己实现了将大写格式转为数字金额 格式,有相同需要的可以参考了 /// /// 将人民币大写金额转换为数字金额 ///...
  • Asa_Jim
  • Asa_Jim
  • 2017年05月22日 10:50
  • 387

银行金额格式转换以及数字金额转换成汉子金额并保留两位小数

package com.cdrcb.fifp.utils; import java.math.BigDecimal; import java.util.Map; /**2015-6-17 k.s...

数字金额转化为汉字大写金额

数字金额转化为汉字大写金额

js 数字金额大小写转换成中文大写

function Arabia_to_Chinese(Num) { for(i=Num.length-1;i>=0;i--) { Num = Num.replace(",","")//替换to...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:两位数字金额转化为大写格式
举报原因:
原因补充:

(最多只允许输入30个字)