将数字转换为大写金额

/********************************************************************/
/*函数  : f_conver_number_chinese                                                                                */
/*参数  : adec_money  将要转换为大写金额的数字                                                                */
/*返回值: string                                                                                                                */
/*撰写人: huwenbin 2009/06/5                                                                                         */
/********************************************************************/

 

string ls_money_unit,ls_money,ls_nuit,ls_badge
int li_long,li_i
ls_money = trim(string(round(adec_money,2)))

do while left(ls_money,1) = '0'
 ls_money = mid(ls_money,2)
loop

li_long = len(ls_money)

for li_i = 1 to li_long
 ls_nuit = right(ls_money,li_i)
 ls_nuit = left(ls_nuit,1)
 
 choose case ls_nuit
  case '.'
   ls_nuit = ''
  case '1'
   ls_nuit = '壹'
  case '2'
   ls_nuit = '贰'
  case '3'
   ls_nuit = '叁'
  case '4'
   ls_nuit = '肆'
  case '5'
   ls_nuit = '伍'
  case '6'
   ls_nuit = '陆'
  case '7'
   ls_nuit = '柒'
  case '8'
   ls_nuit = '捌'
  case '9'
   ls_nuit = '玖'
  case '0'
   ls_nuit = '零' 
 end choose
 
 choose case li_i
  case 1
   ls_badge = '分'
  case 2
   ls_badge = '角'
  case 3
   ls_badge = ''
  case 4
   ls_badge = '元'
  case 5,9,13
   ls_badge = '拾'
  case 6,10,14
   ls_badge = '佰'
  case 7,11,15
   ls_badge = '仟'
  case 8
   ls_badge = '万'  
  case 12
   ls_badge = '亿'  
 end choose
 
 if li_i = 4 and ls_nuit = '零' then
    ls_money_unit = '元' + ls_money_unit
 end if
 
 if pos(ls_money_unit,'万') = 0 then
    if li_i > 7 and ls_nuit = '零' then
       ls_money_unit = '万' + ls_money_unit
    end if
 end if
  
 if pos(ls_money_unit,'亿') = 0 then
   if li_i > 11 and ls_nuit = '零' then
     ls_money_unit = '亿' + ls_money_unit
   end if
 end if
  
 if ls_nuit <> '零' then
    ls_money_unit = ls_nuit + ls_badge + ls_money_unit
 else
    ls_money_unit = ls_nuit + ls_money_unit
 end if
 
 int pos1,pos2,pos3,pos4
 
 pos1 = pos(ls_money_unit,'零元')
 if pos1 > 0 then
    ls_money_unit = replace(ls_money_unit,pos1,4,'元零')
 end if
 
 pos2 = pos(ls_money_unit,'零万')
 if pos2 > 0 then
    ls_money_unit = replace(ls_money_unit,pos2,4,'万零')
 end if
 
 pos3 = pos(ls_money_unit,'零亿')
 if pos3 > 0 then
    ls_money_unit = replace(ls_money_unit,pos3,4,'亿零')
 end if
 
 pos4 = pos(ls_money_unit,'零零')
 if pos4 > 0 then
    ls_money_unit = replace(ls_money_unit,pos4,2,'')
 end if
next

if right(ls_money_unit, 2) = '零' then
  ls_money_unit = left(ls_money_unit,len(ls_money_unit) - 2)
end if

 

if right(ls_money_unit, 2) = '元' then
    ls_money_unit = ls_money_unit + '整'
end if

 

return ls_money_unit
 

//有些地方写得不是很严密,希望提出好的意见!