if (b="零") and ((d="零") or (b=b2) or (c="元") or (c="萬") or (c="億")) then  b = ""
　　   if (a="0") and (c<>"元") and (c<>"萬") and (c<>"億") then c=""
　　   if ((c="元") or (c="萬") or (c="億")) and (d="零") and (a="0") then
 　　     dx_str = mid(dx_str,1,len(dx_str)-2)
 　　     d=mid(dx_str,len(dx_str)-1,2)
 　　     if ((c="元") and (d="萬")) or ((c="萬") and (d="億")) then c = ""
 　　  end if 
   　　 dx_str = dx_str + b+ c
   　　 b2 = b
　　next

 　　 /*處理金額小于1的情況*/
　　  if len(dx_str) <= 2 then dx_str= ""
　　  /*轉換小數部分*/
　　  if (num_dec<10) and (ls>0) then
　　    a_int = long(str_dec)
 　　   b = mid(dx_sz,(a_int*2+1),2)
   　　 if num_dec = 0 then dx_str = dx_str + "整"
  　　  if num_dec > 0 then dx_str = dx_str +"零"+b+"分"
  　　end if
 
 　　 if num_dec >= 10 then
 　　   a_int = long(mid(str_dec,1,1))
 　　   a = mid(dx_sz,(a_int*2+1),2)
 　　   a_int = long(mid(str_dec,2,1))
   　　 b = mid(dx_sz,(a_int*2+1),2)
   　　 if a<>"零" then a = a+"角"
   　　 if b <> "零" then
　　　 b = b+"分"
　　    else
 　　b= ""
 　　   end if
 　　   dx_str = dx_str + a + b
 　　 end if
 　　 if ls= 0 then dx_str = "零元整"
 　　 dx_str = fu+dx_str
 
 　　 result = dx_str
　　return result