数字转换成大写字符串.docxVIP

ABAP实例：将数字金额转换为人民币大写字符串责任编辑：李倩作者：SAP网?? 2009-07-21 ??【内容导航】 第1页：将数字金额转换为人民币大写字符串－No Uncode Version第2页：将数字金额转换为人民币大写字符串－Unicode Version文本Tag： ABAP【IT168 技术文章】　　1、No Uncode Version????function z_convert_numeric_to_chinese.????*????**Local interface:????*??IMPORTING????*???? VALUE(PI_MONEY) LIKE??BSEG-DMBTR????*??EXPORTING????*???? REFERENCE(PO_CHINESE)????*??EXCEPTIONS????*??????WRONG_MONEY????*??????if pi_money = 0.????????po_chinese = 零.????????exit.??????endif.??????data:money_str(13).??????money_str = pi_money.??????if money_str cn 0123456789. .????????raise wrong_money.??????endif.??????data:i type i.??????if money_str cs ..????????i = sy-fdpos + 1.????????money_str+sy-fdpos = money_str+i.??????endif.??????condense money_str no-gaps.??????data:units_off type i,?????????? curnt_off type i.??????data:lastd type n,curntd type n.??????data:cword(2),weight(2).??????data:units(30) value 分角元拾佰仟万拾佰仟亿拾佰仟万,?????????? digts(20) value 零壹贰叁肆伍陆柒捌玖.????* clear:po_chinese,units_off.??????lastd = 0.??????curnt_off = strlen( money_str ) - 1.??????while curnt_off = 0.????????curntd = money_str+curnt_off(1).????????i = curntd * 2.????????cword = digts+i(2).????????weight = units+units_off(2).????????i = units_off / 2.????????if curntd = 0.???????????? Current digit is 0??????????if i = 2 or i = 6 or i = 10.????????????clear:cword.????????????if curnt_off = 0.??????????????clear:weight.????????????endif.??????????elseif lastd = 0.????????????clear:cword,weight.??????????else.????????????clear:weight.??????????endif.????????endif.????????concatenate cword weight po_chinese into po_chinese.????????lastd = curntd.????????subtract 1 from curnt_off.????????add 2 to units_off.??????endwhile.??????if po_chinese ns 分.????????concatenate po_chinese 整 into po_chinese.??????else.????????cword = po_chinese.????????if cword = 零.??????????shift po_chinese by 2 places.????????endif.??????endif.????endfunction.2. 第二ABAP中金额转大写的方法??2009年07月15日?10:10??IT168.com文本Tag： ABAP 【IT168 技术文章】　　ABAP中金额转大写的方法：*