有时候显示的时候需求去掉 数字小数点后面无用的0

比如,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.

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

去掉小数点后无用的0

Logo

有“AI”的1024 = 2048,欢迎大家加入2048 AI社区

更多推荐