ABAP 人民币大小写转换程序

最新推荐文章于 2024-06-24 14:28:52 发布

Seele_1018

最新推荐文章于 2024-06-24 14:28:52 发布

阅读量528

点赞数 1

分类专栏： ABAP学习记录文章标签： SAP ABAP

窝窝头~一块钱四个~嘿嘿~

本文链接：https://blog.csdn.net/qq_44826887/article/details/128250879

版权

ABAP学习记录专栏收录该内容

23 篇文章 1 订阅

订阅专栏

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

* 数字转换人民币大写的程序
* 定义数字对应的中文大写
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.