abap - 设置小数格式，使用逗号作为小数分隔符，不使用千位分隔符

Question

我需要使用逗号作为小数分隔符来格式化十进制数，并且没有任何千位分隔符(既不是点也不是空格)。

如果我不想把它作为一个类轮来做，我就不会是我自己，但我一直无法找到这样的解决方案。

我现在所拥有的解决方法是。

DATA: l_value TYPE p LENGTH 9 DECIMALS 2 VALUE '-3450354.25'.

DATA(l_formatted_value) = |{ l_value SIGN = LEFTSPACE COUNTRY = 'DE ' }|.
REPLACE ALL OCCURENCES OF '.' IN l_formatted_value WITH ''.
WRITE: l_formatted_value.

我尝试使用 NUMBER = RAW 选项来完成此操作，但后来我似乎找不到一种简单的方法来将小数点分隔符指定为逗号。

DATA(l_formatted_value) = |{ l_value SIGN = LEFTSPACE NUMBER = RAW }|.
REPLACE '.' IN l_formatted_value WITH ','.

如何才能将其作为一个衬垫来实现？我也想避免使用 WRITE。

Answer 1

很好的挑战，这是我发现的一行行，适用于您的数据定义。我试图使它适用于任何小数位数，但结果证明这是相当困难的。请注意，它并不总是在小数字符后显示两位数字，例如12.50 将显示为 12,5。

|{ trunc( l_value ) },{  trunc( frac( l_value ) * 100  ) }|

我很好奇其他人发现了什么。