递归的方法动态保留小数位,有几位小数就显示几位小数

在实际的开发中,经常需要把数字转成文本显示,以示适用户的显示格式需求。在SAP ABAP中,我们定义了一个数字型的小数位后,即使没有小数ABAP也会以0填充,所以就会出现5.000的情况,用户希望这种情况下只输出5就可以了,于是用递归的方法写了一个函数,代码如下:

 

DATA: v_string TYPE string VALUE '100.0'.

PERFORM dele_after_zero CHANGING v_string.

WRITE v_string.

*&---------------------------------------------------------------------*
*&      Form  dele_after_zero
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM dele_after_zero  CHANGING p_string.

  DATA: last_char TYPE c,
        first_char TYPE c,
        n_len  TYPE i,
        n_pos  TYPE i.
  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.
ENDFORM.                    " dele_after_zero

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值