ABAP：根据小数位自动截取，去除末尾多余小数

SAP.单刀赴会

已于 2023-03-24 15:29:30 修改

阅读量2.7k

点赞数 1

CC 4.0 BY-SA版权

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

于 2023-02-22 10:08:32 首次发布

本文链接：https://blog.youkuaiyun.com/weixin_43734184/article/details/129156946

ABAP学习专栏收录该内容

110 篇文章 ¥29.90 ¥99.00

订阅专栏

超级会员免费看

DATA:kwmeng      TYPE  kwmeng VALUE '100.00',
     ckwmeng(15) TYPE  c . "订单数量 "订单数量

ckwmeng = kwmeng.

PERFORM dele_after_zero CHANGING ckwmeng.
WRITE:ckwmeng.
FORM dele_after_zero  CHANGING p_string.

  DATA: last_char  TYPE c,
        first_char TYPE c,
        n_len      TYPE i,
        n_pos      TYPE i.
*  SEARCH  p_string FOR '.'.
*  IF sy-subrc = 0.
*    WRITE:sy-fdpos.
*  ENDIF.
  IF p_string CS '.'.
    n_len = strlen( p_string ).
    n_pos = n_len - 1.
    last_char = p_string+n_pos(1).
    IF last_char EQ '0' OR last_char EQ '.'.
      p_string = p_string+0(n_pos).
      IF last_char NE '.'.
        PERFORM dele_after_zero CHANGING p_string.
      ENDIF.
    ENDIF.
  ENDIF.
  CONDENSE p_string.
ENDFORM.                    " dele_after_zero