abap - 如何将数值转换为数字单词？

Question

我正在尝试检查某个数字，例如7845，可以是任何千位、百位或十位，例如7845 有 7 倍千、8 倍百、4 倍十。

程序应该将次数转换为字符串:

IF ( DMBTR MOD 10000000 ) LE 9.
    DMBTR / 10000000 = lv_tenmillions.
    lv_tenmillions_check = lv_tenmillions MOD 1.
    
    IF lv_tenmillions_check > 0.
     "Convert
   ENDIF.
   
   IF lv_tenmillions_check < 0.
     "ZERO
   ENDIF.
  ENDIF.

我编写的代码会检查千万，因此会检查10000000的值的MOD是否小于9。abap中是否有任何函数或代码用于将数字转换为字母？

先谢谢大家了!

Answer 1

您可以使用功能模块SPELL_AMOUNT:

DATA: lv_spell TYPE spell.

CALL FUNCTION 'SPELL_AMOUNT'
  EXPORTING
    amount    = 123
*   CURRENCY  = ' '
*   FILLER    = ' '
*   LANGUAGE  = SY-LANGU
  IMPORTING
    in_words  = lv_spell
  EXCEPTIONS
    not_found = 1
    too_large = 2
    OTHERS    = 3.

lv_spell-word 包含您需要的内容。