去掉小数点后无用的0_SAP刘梦_新浪博客

比如，12.00 显示12，12.10显示12.1  12.01显示12.01，14.000显示为14这种

代码很简单

FUNCTION zlm_dec.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  CHANGING
*"     REFERENCE(CV_VALUE) TYPE  STRING
*"----------------------------------------------------------------------

  CONDENSE cv_value NO-GAPS.

  SHIFT cv_value RIGHT DELETING TRAILING '0'.
  SHIFT cv_value  RIGHT DELETING TRAILING '.'. "小数点是.
  SHIFT cv_value  RIGHT DELETING TRAILING ','. "小数点是，
  SHIFT cv_value  LEFT DELETING LEADING space.


ENDFUNCTION.

至于第一句为什么是：

CONDENSE cv_value NO-GAPS.

有兴趣可以自己琢磨下，挺有意思的。

​​