abap 使用数学函数去掉后置0

data: w_p(13) type p decimals 3 value '12.120',

w_p2(13) type p decimals 3,

w_c(13) type c,

w_i type i value 1.


do 3 times.

w_p2 = w_p * w_i.

if FRAC( w_p2 ) = 0.

exit.

else.

w_i = w_i * 10.

continue.

endif.

enddo.


w_c = TRUNC( w_p2 ) / w_i.


write:/ w_p,"12.120

/ w_p2,"1,212.000

/ w_c ."12.12


另：SHIFT w_c RIGHT DELETING TRAILING '0'.也能实现去掉后置0


附：ABAP关于取整与取小数等数学函数
任意类型参数 ————————————F类型参数

ABS 绝对值 COS、SIN、TAN 三角

SIGN 正数为1,0为0,负为-1 ACOS、。。。。。。。。 反三角

TRUNC 取得整数部分 COSH、SINH、TANH 双曲函数

FRAC 取得小数部分 EXP 底数为E

CEIL 取得不小于输入参数的最小整数 LOG 底数为10

FLOOR取得大小于输入参数的最小整数 LOG10 SQRT（平方根）