SAP ABAP 小数转分数\约分

小飞猪猪猪猪猪猪猪

已于 2023-03-09 16:17:19 修改

阅读量487

点赞数

分类专栏：开发知识点文章标签： sap abap

于 2023-02-02 14:31:36 首次发布

本文链接：https://blog.csdn.net/JYH1999/article/details/128849686

版权

开发知识点专栏收录该内容

50 篇文章 6 订阅

订阅专栏

导语：最近写报表的时候，顾问想把小数展示换城分数展示，例如0.75显示为3/4，哈哈哈哈，有点奇怪，实现起来还挺好玩的，要多考虑一些情况，封装了一个函数，下面贴一下代码。

一、函数信息：

	字段	描述	属性
函数名称	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_change.
    SPLIT  lv_change AT '.' INTO lv_int lv_dec.

    IF lv_dec <> 0 AND lv_dec IS NOT INITIAL.
      lv_len = strlen( lv_dec ).
      IF lv_len < 30.
        lv_molecule = lv_dec."分子赋值
        lv_denominator = 1. "分母赋值
        CONDENSE lv_denominator.
        DO lv_len TIMES.
          lv_denominator = 10 * lv_denominator.   lv_change = lv_change * 10.
          CONDENSE lv_denominator.
          CONDENSE lv_change.
        ENDDO.
        "未约分的数据【output】
        iv_fraction  = lv_change && '/' && lv_denominator.
        "小数部分转换成分数
        DO .
          IF lv_molecule MOD 2 = 0 AND lv_denominator MOD 2 = 0.
            lv_molecule    = lv_molecule    / 2.
            lv_denominator = lv_denominator / 2.
          ELSEIF lv_molecule MOD 3 = 0 AND lv_denominator MOD 3 = 0.
            lv_molecule    = lv_molecule    / 3.
            lv_denominator = lv_denominator / 3.
          ELSEIF lv_molecule MOD 5 = 0 AND lv_denominator MOD 5 = 0.
            lv_molecule    = lv_molecule    / 5.
            lv_denominator = lv_denominator / 5.
          ELSEIF lv_molecule MOD 7 = 0 AND lv_denominator MOD 7 = 0.
            lv_molecule    = lv_molecule    / 7.
            lv_denominator = lv_denominator / 7.
          ELSE.
            CONDENSE lv_molecule.
            CONDENSE lv_denominator.
            EXIT.
          ENDIF.
        ENDDO.
        "约分后的小数部分【output】
        iv_fraction_y = lv_molecule &&  '/' && lv_denominator.
        "整数表达式【output】
        iv_fraction_i = lv_int && '又' && lv_molecule &&  '/' && lv_denominator.

        "全部数据转换成分数
        lv_molecule = lv_int * lv_denominator + lv_molecule.
        DO .
          IF lv_molecule MOD 2 = 0 AND lv_denominator MOD 2 = 0.
            lv_molecule    = lv_molecule    / 2.
            lv_denominator = lv_denominator / 2.
          ELSEIF lv_molecule MOD 3 = 0 AND lv_denominator MOD 3 = 0.
            lv_molecule    = lv_molecule    / 3.
            lv_denominator = lv_denominator / 3.
          ELSEIF lv_molecule MOD 5 = 0 AND lv_denominator MOD 5 = 0.
            lv_molecule    = lv_molecule    / 5.
            lv_denominator = lv_denominator / 5.
          ELSEIF lv_molecule MOD 7 = 0 AND lv_denominator MOD 7 = 0.
            lv_molecule    = lv_molecule    / 7.
            lv_denominator = lv_denominator / 7.
          ELSE.
            CONDENSE lv_molecule.
            CONDENSE lv_denominator.
            EXIT.
          ENDIF.
        ENDDO.
        "约分后的小数部分【output】
        iv_fraction_all = lv_molecule &&  '/' && lv_denominator.
      ELSE.
        iv_fraction_y = '小数过小，无法计算！'.
        iv_fraction_i = '小数过小，无法计算！'.
      ENDIF.
    ELSE.
      iv_fraction      = lv_int && '/' && 1.
      iv_fraction_y    = lv_int && '/' && 1.
      iv_fraction_all  = lv_int && '/' && 1.
      iv_fraction_i    = lv_int.
    ENDIF.
  ENDIF.
ENDFUNCTION.