ABAP中如何检查字符串/P类型数值的小数位数是否超两位？

针对P类型和字符串两种输入场景，分别提供可靠的判断方法：

一、处理P类型数值 #

P类型本身带有固定小数位定义，但实际存储的数值可能存在末尾无效零，需先去除再判断有效小数位数：

DATA(lv_p) TYPE p DECIMALS 3 VALUE '12.345'. " 示例P类型数值
DATA(lv_str) TYPE string.
lv_str = lv_p. " 将P类型转为字符串

IF lv_str CS '.'.
  SPLIT lv_str AT '.' INTO DATA(lv_int_part) DATA(lv_dec_part).
  " 移除小数部分末尾的无效零
  lv_dec_part = REPLACE ALL OCCURRENCES OF REGEX '0+$' IN lv_dec_part WITH ''.
  
  IF STRLEN( lv_dec_part ) > 2.
    WRITE: '该数值小数位数超过两位'.
  ELSE.
    WRITE: '该数值小数位数不超过两位'.
  ENDIF.
ELSE.
  WRITE: '该数值小数位数不超过两位'.
ENDIF.

二、处理字符串类型数值 #

假设字符串为标准小数格式（无千分位分隔符），直接截取小数部分并去除无效零后判断长度：

DATA(lv_str_num) TYPE string VALUE '12.340'. " 示例字符串数值

IF lv_str_num CS '.'.
  SPLIT lv_str_num AT '.' INTO DATA(lv_int) DATA(lv_dec).
  " 移除末尾无效零，避免如'12.340'被误判为三位小数
  lv_dec = REPLACE ALL OCCURRENCES OF REGEX '0+$' IN lv_dec WITH ''.
  
  IF STRLEN( lv_dec ) > 2.
    WRITE: '该数值小数位数超过两位'.
  ELSE.
    WRITE: '该数值小数位数不超过两位'.
  ENDIF.
ELSE.
  WRITE: '该数值小数位数不超过两位'.
ENDIF.

补充说明 #

• 若字符串包含千分位分隔符（如1,234.567），需先移除千分位再处理：lv_str_num = REPLACE ALL OCCURRENCES OF ',' IN lv_str_num WITH ''.
• 也可使用数学方法（适用于无精度丢失场景）：将数值乘以100后取整，与原数乘以100的结果比较，若不等则说明存在超过两位的小数，但需注意P类型的精度限制。

内容的提问来源于stack exchange，提问作者MKHC