有时候显示的时候需求去掉 数字小数点后面无用的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.
有兴趣可以自己琢磨下,挺有意思的。