SAP将小数转换为分数

最新推荐文章于 2025-12-02 21:20:38 发布

原创

最新推荐文章于 2025-12-02 21:20:38 发布 · 133 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#java #前端 #数据库 #网络 #服务器 #开发语言

说明：主数据的业务顾问提出了一个需求是在ALV展示的时候把小数转为分数展示，这里写一个函数来实现。

函数名称：ZDECIMAL_TO_FRACTION
函数入参：IV_DECIMAL
函数出参：IV_FRACTION 未约分
IV_FRACTION_ALL 约分
IV_FRACTION_Y 小数位转换成分数
IV_FRACTION_I 整数表达
函数源代码：

FUNCTION zdecimal_to_fraction.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_DECIMAL)
*"  EXPORTING
*"     REFERENCE(IV_FRACTION)
*"     REFERENCE(IV_FRACTION_ALL)
*"     REFERENCE(IV_FRACTION_Y)
*"     REFERENCE(IV_FRACTION_I)
*"----------------------------------------------------------------------
  DATA : lv_change      TYPE char255.
  DATA : lv_int         TYPE char255.
  DATA : lv_dec         TYPE char255.
  DATA : lv_molecule    TYPE char255.  "分子
  DATA : lv_denominator TYPE char255.  "分母
  DATA : n              TYPE i.
  DATA : lv_len_dec     TYPE i.
  DATA : lv_len         TYPE i.
  DATA : lv_over.
  IF iv_decimal IS NOT INITIAL.

    lv_change = iv_decimal.
    CONDENSE lv_chang