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(平方根)
abap 使用数学函数去掉后置0
猜你喜欢
转载自caoxuhuan.iteye.com/blog/919046
今日推荐
周排行