将小写金额转换成中文大写

FUNCTION ZCONV_AMOUNT_MB.
*"--------------------------------------------------------------------
"“局部接口：
*” IMPORTING
*" REFERENCE(VA1) TYPE P
*" CHANGING
*" REFERENCE(STR) TYPE MAKT-MAKTX
*"--------------------------------------------------------------------

```
  Global data declarations
```

DATA: SCR(30) TYPE C, RES(60) TYPE C,FEN(2) TYPE C .
DATA: LEN TYPE I, C1 TYPE I, C2 TYPE I, C3 TYPE I, C4 TYPE I.
DATA: D1(1) TYPE C, D2(1) TYPE C, D3 TYPE I.
DATA: DIGIT(2) TYPE C, WEIGHT(2) TYPE C.
DATA: RULE1(20) TYPE C VALUE ‘零壹贰叁肆伍陆柒捌玖’.
DATA: RULE2(30) TYPE C VALUE ‘分角元拾佰仟万拾佰仟亿拾佰仟万’.
SCR = VA1 * 100.
CONDENSE SCR NO-GAPS.
IF SCR = ‘0’.
RES = ‘零元’.
ELSE.
LEN = STRLEN( SCR ).
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 - 1 ) .
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 = STRLEN( RES ) - 1.
FEN = RES+LEN(1).
IF FEN <> ‘分’ .
CONCATENATE RES ‘整’ INTO STR.
ELSE.
STR = RES.
ENDIF.

ENDFUNCTION.

将小写金额转换成中文大写相关推荐

阿拉伯数字小写金额转换成中文大写金C额程序说明
阿拉伯数字小写金额转换成中文大写金额C程序说明 1.问题的提出寒假帮同学交缴话费时,不经意间看到收据上同时有小写金额和大写金额,想想各种各样的票据诸如缴费收据.银行业务回单.商场销售凭证.专用发票等 ...
如何把数字金额转换成中文大写
问题:要求把万亿级别内的浮点数转换成中文大写,例如把数字1112221000060.254400转换成:壹万壹仟壹佰贰拾贰亿贰仟壹佰万零陆拾元零贰角伍分分析:关键是先把double类型转换成char ...
把数字金额转换成中文大写数字
//把数字金额转换成中文大写数字 function changeNumMoneyToChinese(money) { var cnNums = new Array("零", &qu ...
php数字转换百千万,PHP数字金额转换成中文大写显示
整个功能其实不难,只是还算挺实用,所以记一下哈,其他编程语言转换一下也是能可以的! 思路:把传过来的金额转换成整数和小数两部分,再对其分别进行转换处理代码附上: function moneyToSt ...
php显示大写金额,PHP数字金额转换成中文大写显示
整个功能其实不难,只是还算挺实用,所以记一下哈,其他编程语言转换一下也是能可以的! 思路:把传过来的金额转换成整数和小数两部分,再对其分别进行转换处理代码附上: function moneyToSt ...
php 把数字变成大写数字,PHP数字金额转换成中文大写显示
整个功能其实不难,只是还算挺实用,所以记一下哈,其他编程语言转换一下也是能可以的! 思路:把传过来的金额转换成整数和小数两部分,再对其分别进行转换处理代码附上: function moneyToSt ...
小写数字转大写_不得不说的Excel小技巧：设置单元格格式将小写金额转换成大写...
大家好,我是小秋,近期一段时间比较忙,没有在今日头条上更新原创文章了.希望朋友们多多见谅,下面与大家分享一个Excel实用小技巧:如何设置单元格格式将小写金额转换成大写? 1.应用场景在报销单.收据 ...
win7计算机名改成大写,图文解读win7系统excel数字小写金额转换成汉字大写金额的措施...
有很多网友在使用电脑的过程总难免会遇到win7系统excel数字小写金额转换成汉字大写金额的情况.针对win7系统excel数字小写金额转换成汉字大写金额的问题,我给大家整理总结了详细的解决步骤.近日 ...
C语言-如何将用户输入的金额数字转换成中文大写？
实战: 如何将用户输入的金额数字转换成中文大写? #include <stdio.h>int main() {// 输入金额转换成大写int money; // 输入数字int money ...

将小写金额转换成中文大写

将小写金额转换成中文大写相关推荐

最新文章

热门文章