ABAP 人民币大小写转换程序

人民币大小写转换程序
程序来源群友，侵删

* 数字转换人民币大写的程序
* 定义数字对应的中文大写
data: begin of ch_num type string,"零" value '0',"壹" value '1',"贰" value '2',"叁" value '3',"肆" value '4',"伍" value '5',"陆" value '6',"柒" value '7',"捌" value '8',"玖" value '9',end of ch_num.* 定义单位对应的中文大写
data: begin of ch_unit type string,"拾" value '1',"佰" value '2',"仟" value '3',"万" value '4',"亿" value '8',"元" value '0',"角" value '1',"分" value '2',end of ch_unit.* 定义输入和输出变量
data: input type string,output type string.* 获取用户输入
input = '123456.78'.* 处理小数点后面的部分
if indexof( input, '.' ) > 0.* 获取小数部分data: dec_input type string,dec_output type string.dec_input = split_string( input, '.', 2 ).* 将小数部分转换成大写do 2 times.data: digit type string.digit = dec_input+offset( 1 ).dec_output = dec_output && ch_num+digit && ch_unit+offset( 1 ).dec_input = shift_left( dec_input, 1 ).enddo.* 删除转换完成的小数部分input = split_string( input, '.', 1 ).
endif.* 将整数部分转换成大写
do 4 times.data: digit type string.digit = input+offset( 4 ).output = output && ch_num+digit && ch_unit+offset( 4 ).input = shift_left( input, 1 ).
enddo.* 将转换完成的小数部分拼接到整数部分后面
output = output && dec_output.* 输出转换完成的人民币大写
write output.

ABAP 人民币大小写转换程序相关推荐

巧用Excel 轻松转换人民币大小写
巧用Excel 轻松转换人民币大小写 2010-02-08 11:22 要将人民币小写金额转换成大写格式,用Excel提供的格式,将自定义格式类型中的"[dbnum2]G/通用格 ...
人民币大小写金额转换
1.调用 ConvertIntToUppercaseAmount(String value) 即可 <summary> ///人民币大小写金额转换 ///</su ...
C#人民币大小写金额转换(C#版本)
1.调用 ConvertIntToUppercaseAmount(String value) 即可 <summary> /// 人民币大小写金额转换 /// < ...
JavaScript实现人民币大小写转换
当使用支票或者签署合同时,需要用到大写人民币,常用的中文大写包括零.壹.贰.叁.肆.伍.陆.柒.捌.玖.拾.佰.仟.万.亿.本文介绍下如何使用JavaScript实现将阿拉伯数字的人民币转换成大写. ...
人民币大小写格式转换
using System; using System.Text; using System.Text.RegularExpressions; /// <summary> /// 人民币大小 ...
人民币大小写转换格式
<?php //****人民币大小写转换格式**** function ChangeToRMB($Val) { $str=array(); $str[0]="零"; $str ...
超强技巧分享，如何将人民币大小写转换？
当我们在制作财务表格的时候,需要将金额的大写跟小写进行转换,如果要一个一个手打出来的话,那就太浪费时间了,一两个数额还好,如果一整个表格的数额,那就不得了了,那要花费多少时间才能将小写金额转换成大写金 ...
java人民币大小写转换_人民币大小写转换
usingSystem;usingSystem.Text;usingSystem.Text.R using System; using System.Text; using System.Text.R ...
Java实现人民币大小写转换
思路和具体方法都在注释中说明 package ClassicArithmetic;import java.util.Scanner;/** @author:LOHAS翀* @time:2019/11/ ...

ABAP 人民币大小写转换程序

ABAP 人民币大小写转换程序相关推荐

最新文章

热门文章