小写金额转换成大写金额

发布时间：2023-12-22 11:43:56


小写金额转换成大写金额
（深圳：独孤求败2003-05-27）
在很多如打印发票的地方需要打印金额的中文大写，PowerBuilder没有提供这样一个数字转换成金额大写的函数。我就自己编了一个，在实际使用中效果良好。
程序源代码如下：
inti,lendec,lenint
stringnumstr,a,b,c,d,bbak
numstr=string(aje,"#0.00"
lenint=len(mid(numstr,1,pos(numstr,'.'-1
ifright(numstr,2='00'then
lendec=0
else
lendec=2
endif


stringdxint[13],dxdec[2],sz[13]
stringdxstr="万仟佰拾亿仟佰拾万仟佰拾元"
stringszstr="零壹贰叁肆伍陆柒捌玖"
fori=1to13
dxint[i]=mid(dxstr,26-i*2+1,2
ifi<11then
sz[i]=mid(szstr,i*2-1,2
else
sz[i]=""
endif
next
dxdec[1]="角"
dxdec[2]="分"

小写金额转换成大写金额

推荐内容

相关推荐