dx.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 41 行

jexx=dx
MK=STR(JEXX*1000,11)   
NM="零壹贰叁肆伍陆柒捌玖"   
DW="仟佰拾万仟佰拾元角分"   
JEDX=" "   
X=1   
DO WHIL X<=10  
 A=SUBS(MK,X,1)  
 B=SUBS(MK,X+1,1)  
 IF A=" "  
 X=X+1  
 LOOP  
 ENDI  
 Y=SUBS(NM,2*VAL(A)+1,2)  
 Z=SUBS(DW,X*2-1,2)  
 IF Y="零"  
 IF X=4.OR.X=8  
 IF X=4  
 JEDX=JEDX+"万"  
 ENDI  
 IF X=8  
 JEDX=JEDX+"元"  
 ENDI  
 IF SUBS(MK,X-1)="0".AND.VAL(SUBS(MK,X+1))>0   
 JEDX=JEDX+"零"   
 ENDI   
 ELSE   
 IF B<>"0".AND.RIGH(JEDX,2)<>"零"   
 JEDX=JEDX+"零"   
 ENDI   
 ENDI   
 ELSE   
 JEDX=JEDX+Y+Z   
 ENDI   
 X=X+1   
ENDD   
 IF RIGH(JEDX,2)<>"分".AND.LEN(JEDX)>0   
 JEDX=JEDX+"整"   
 ENDI   
 dx=jedx
 RETU