一个修正过的金额转换程序

Question

简单一点：
 para x0 
   decl a(2,11) 
   a(1,01)="分"
   a(1,02)="角"
   a(1,03)="元"
   a(1,04)="拾"
   a(1,05)="佰"
   a(1,06)="仟"
   a(1,07)="万"
   a(1,08)="拾"
   a(1,09)="佰"
   a(1,10)="仟"
   a(1,11)="亿"
   a(2,01)="壹"
   a(2,02)="贰"
   a(2,03)="叁"
   a(2,04)="肆"
   a(2,05)="伍"
   a(2,06)="陆"
   a(2,07)="柒"
   a(2,08)="捌"
   a(2,09)="玖"
   a(2,10)="拾"
   a(2,11)="零"
   z=iif(x0<0,[负],[])
   d=abs(int(x0*100))
   x1=len(ltri(str(d,11)))
   do whil d>0 
       x=len(ltrim(str(d,11)))
       y=int(d/10**(x-1))
       d=d-y*10**(x-1)
       z=z+iif(x1>7.and.x<7.and.x1#11,a(1,7),[])+iif(x1>3.and.x<3,a(1,3),[])
       z=z+iif(x1-1>x,a(2,11),[])
       z=z+a(2,y)+a(1,x)+iif(x>7.and.x<11.and.d=0,a(1,7),[])+iif(x>3.and.d=0,a(1,3),[])
       x1=x
    enddo
    x0=z+iif(x0*10-int(x0*10)=0,[整],[])
    return  x0