今天有人问我关于四舍五入的算法
其实,SAP提供了函数,没有函数也是可以的
但还是用函数做比较方便,举例如下:
DATA: L_DATA TYPE P DECIMALS 3 VALUE '1.456'.
DATA: L_DATA1 TYPE P DECIMALS 3.
DATA: L_DATA2 TYPE P DECIMALS 3 VALUE '1.546'.
* 方法一
CALL FUNCTION 'HR_NZ_ROUNDING_DECIMALS'
EXPORTING
VALUE_IN = L_DATA
CONV_DEC = 1 " 设置保留几位小数
IMPORTING
VALUE_OUT = L_DATA1
EXCEPTIONS
no_rounding_required = 1
decimals_greater_than_10 = 2
rounding_error = 3
OTHERS = 4.
WRITE: L_DATA1.
* 方法二
CALL FUNCTION 'ROUND'
EXPORTING
DECIMALS = 0 " 保留多少位小数
INPUT = L_DATA2
SIGN = '+' " + 向上取舍 - 向下取舍 (负数也一样)
IMPORTING
OUTPUT = L_DATA1 " 输出返回结果
EXCEPTIONS
input_invalid = 1
overflow = 2
type_invalid = 3
OTHERS = 4.
WRITE: L_DATA1.