FUNCTION zzfi_change_amount.
*"----------------------------------------------------------------------
*"*"本地接口:
*"  IMPORTING
*"     REFERENCE(I_MONEY) TYPE  BF_DMBTR
*"  EXPORTING
*"     REFERENCE(O_MONEY)
*"  EXCEPTIONS
*"      WRONG_MONEY
*"----------------------------------------------------------------------
  DATA:
    v_s00(2)     VALUE '零',
    v_s01(2)     VALUE '壹',
    v_s02(2)     VALUE '贰',
    v_s03(2)     VALUE '叁',
    v_s04(2)     VALUE '肆',
    v_s05(2)     VALUE '伍',
    v_s06(2)     VALUE '陆',
    v_s07(2)     VALUE '柒',
    v_s08(2)     VALUE '捌',
    v_s09(2)     VALUE '玖',
    v_w00(2)     VALUE '',
    v_w01(2)     VALUE '拾',
    v_w02(2)     VALUE '佰',
    v_w03(2)     VALUE '仟',
    v_w04(2)     VALUE '万',
    v_w05(4)     VALUE '拾',
    v_w06(4)     VALUE '佰',
    v_w07(4)     VALUE '仟',
    v_w08(2)     VALUE '亿',
    v_w09(4)     VALUE '拾',
    v_w10(4)     VALUE '佰',
    v_w11(4)     VALUE '仟',
    v_w12(4)     VALUE '万',
    v_sy(2)      VALUE '元',
    v_sj(2)      VALUE '角',
    v_sf(2)      VALUE '分',
    v_amount(16),"将金额转换成字符型
    v_len        TYPE i, "v_amount或out的长度
    v_var(5),"v_s0,v_s1,...,v_w0,v_w1,...
    v_num(2)     TYPE n, "每一位的数值
    v_s_num(2),"v_s0,v_s1,...中的值
    v_weight(2)  TYPE n, "权数
    v_w_num(4),"v_w0,v_w1,...中的值
    v_flag0      TYPE i VALUE 0, "是否输出'零',0不输出,1输出
    v_n          TYPE i VALUE 0,
    v_index      TYPE sy-index.
  v_amount = i_money.
  SHIFT v_amount LEFT DELETING LEADING space.
  SHIFT v_amount LEFT DELETING LEADING '0'.
*-计算分-----------------------------------------
  v_len = strlen( v_amount ).
  v_len = v_len - 1.
  v_num = v_amount+v_len(1).
  IF v_num <> '0'.
    CONCATENATE 'v_s' v_num INTO v_var.
    WRITE (v_var) TO v_s_num.
    CONCATENATE v_s_num v_sf o_money INTO o_money.
  ENDIF.
*-计算角-----------------------------------------
  v_len = strlen( v_amount ).
  v_len = v_len - 2.
  v_num = v_amount+v_len(1).
  IF v_num <> '0'.
    CONCATENATE 'v_s' v_num INTO v_var.
    WRITE (v_var) TO v_s_num.
    CONCATENATE v_s_num v_sj o_money INTO o_money.
  ENDIF.
*-输出‘整’字-------------------------------------
  IF o_money = ' '.
    CONCATENATE '整' o_money INTO o_money.
  ENDIF.
*-计算整数---------------------------------------
  v_len = strlen( v_amount ).
  v_len = v_len - 3.
  IF v_len = 0.
    EXIT.
  ENDIF.
  v_amount = v_amount(v_len)." 整数部分
*-输出‘元’字-------------------------------------
  CONCATENATE v_sy o_money INTO o_money.
  v_n = v_len - 1.
  v_weight = 0.
  DO v_len TIMES.
    v_index = sy-index.
*   从个位开始
    v_num = v_amount+v_n(1).
    IF v_num <> '0'.
      CONCATENATE 'v_s' v_num INTO v_var.
      WRITE (v_var) TO v_s_num.
      CONCATENATE 'v_w' v_weight INTO v_var.
      WRITE (v_var) TO v_w_num.
      CONCATENATE v_s_num v_w_num o_money INTO o_money.
      v_flag0 = 1.
    ELSE.
      IF v_flag0 = 1.
        CONCATENATE 'v_s' v_num INTO v_var.
        WRITE (v_var) TO v_s_num.
        CONCATENATE v_s_num o_money INTO o_money.
        v_flag0 = 0.
      ENDIF.

IF v_index = 5  AND v_len > 5 AND v_len < 9 .
        CONCATENATE '万' o_money INTO o_money.
      ELSEIF v_index = 9 AND v_len > 9.
        CONCATENATE '亿' o_money INTO o_money.
      ENDIF.

*      CASE SY-INDEX.
*        WHEN 5.CONCATENATE '万' OUT INTO OUT.
*        WHEN 9.CONCATENATE '亿' OUT INTO OUT.
*      ENDCASE.
    ENDIF.
    v_weight = v_weight + 1.
    v_n = v_n - 1.
  ENDDO.
*-删除个位可能出现'零'的情况-----------------
  SEARCH o_money FOR '圆'.
  IF sy-subrc = 0.
    v_n = sy-fdpos - 2.
    IF v_n >= 0.
      IF o_money+v_n(2) = v_s00.
        v_len = strlen( o_money ).
        CONCATENATE o_money(v_n) o_money+sy-fdpos INTO o_money.
      ENDIF.
    ENDIF.
  ENDIF.

ENDFUNCTION.

ABAP 金额转换成大写的更多相关文章

  1. C#小写数字金额转换成大写人民币金额的算法

    C#小写数字金额转换成大写人民币金额的算法 第一种方法: using System.Text.RegularExpressions;//首先引入命名空间 private string DaXie(st ...

  2. SQL函数:小写金额转换成大写

    /********************************************************作者:版本:1.0创建时间:20020227修改时间:功能:小写金额转换成大写参数:n ...

  3. 用python实现把数字人民币金额转换成大写的脚本程序

    # -*- coding: utf-8 -*- def Num2MoneyFormat( change_number ): """ .转换数字为大写货币格式( forma ...

  4. jquery 金额转换成大写

    <script language="javascript" type="text/javascript">         function Ara ...

  5. JavaScript将小写金额转换成大写

    //num为小写金额,单位元 changeMoney(num) { if(isNaN(num))return ""; var strPrefix=""; if( ...

  6. irport报表,把数字金额转换成大写人民币金额

    1.编写oracle函数 CREATE OR REPLACE Function MoneyToChinese(Money In Number) Return Varchar2 Is strYuan ) ...

  7. 【PHP】金额数字转换成大写形式

    <?php /*将数字金额转成大写*/ function num_to_upper($num) { $d = array('零','壹','贰','叁','肆','伍','陆','柒','捌', ...

  8. JS把数字金额转换成中文大写数字的函数

    //把数字金额转换成中文大写数字的函数 function num2rmb ($num){ $c1="零壹贰叁肆伍陆柒捌玖"; $c2="分角元拾佰仟万拾佰仟亿" ...

  9. PHP算法--将数字金额转换成大写金额

    最近在看一些PHP算法题,遇到一个将数字金额转换成大写金额的小算法题,这里贴出自己的一个例子. 注:这个小算法适用于10万以内的金额. <?php //$num = 12345.67; func ...

随机推荐

  1. 6.秋招复习简单整理之请你谈谈JDBC的反射,以及它的作用?

    通过反射com.mysql.jdbc.Driver类,实例化该类时会调用该类的静态代码块,该代码块会去java的DriverManager类中注册自己,DriverManager管理所有已注册的驱动类 ...

  2. MyBatis OGNL表达式用法

    From<MyBatis从入门到精通> <!-- 4.7 OGNL用法 MyBatis常用的OGNL表达式: e1 or e2: e1 and e2 e1 == e2; e1 != ...

  3. nuxt项目打包上线,以及nuxt项目基础代码分享

    nuxt的项目部署到线上环境,有多种方法,这里分享我使用的方法,一步步照着配置,就可以配置成功~ (1)项目先执行npm run build 打包好   (2)服务器安装node 和pm2依赖 服务器 ...

  4. [USACO07FEB]银牛派对Silver Cow Party

    题目简叙: 寒假到了,N头牛都要去参加一场在编号为X(1≤X≤N)的牛的农场举行的派对(1≤N≤1000),农场之间有M(1≤M≤100000)条有向路,每条路长Ti(1≤Ti≤100). 每头牛参加 ...

  5. [剑指offer] 6. 旋转数组的最小数字

    题目描述 把一个数组最开始的若干个元素搬到数组的末尾,我们称之为数组的旋转. 输入一个非减排序的数组的一个旋转,输出旋转数组的最小元素. 例如数组{3,4,5,1,2}为{1,2,3,4,5}的一个旋 ...

  6. 前端响应式のmedia文件分离

    响应式cssのmedia文件分离 media简介 1.媒体查询,添加自CSS3 2.一个媒体查询由一个可选的媒体类型和零个或多个使用媒体功能的限制了样式表范围的表达式组成,允许内容的呈现针对一个特定范 ...

  7. org.mybatis.spring.MyBatisSystemException异常及处理

    org.mybatis.spring.MyBatisSystemException异常处理 测试场景 在测试springboot中使用MyBatis/通用Mapper的自定义方法时出现此异常. 异常如 ...

  8. php 常用函数总汇

    php 使用命令行函数exec($sql,$result,$status); $sql 命令   $result  返回东西  $status成功与否的状态 例如: php使用命令行去执行数据库备份( ...

  9. javascript基础学习第三天

    ☞ 命名法: 小驼峰命名法 和 大驼峰命名法(帕斯卡命名法) 变量命名规则:遵循小驼峰命名法 [变量名第一个字母小写后面每一个单词的首字母大写] var userNameAge; 函数命名规则:遵循帕 ...

  10. 部分 语法Mysql

    ##1.创建数据库 CREATE DATABASE S2230MySchool ##2.创建数据表 CREATE TABLE Student ( stuNo INT PRIMARY KEY AUTO_ ...