小写金额转换成int i,lendec,lenint string numstr,a,b,c,d,bbak numstr=string(aje,"#0.00") lenint=len(mid(numstr,1,pos(numstr,'.') - 1)) if right(numstr,2)='00' then lendec=0 else lendec=2 end if string dxint[13],dxdec[2],sz[13] string dxstr="万仟佰拾亿仟佰拾万仟佰拾元" s
Private Function setdata(num As Integer) As String '数字转换 Select Case num Case 0 setdata = "零" Case 1 setdata = "壹" Case 2 setdata = "贰" Case 3 setdata = "叁" Case 4 setdata = "肆" Case 5 setdata = "伍" Case 6 setdata = "陆" Case 7 setdata = "柒" Case 8 s
