求vfp编写的小写金额转换为大写金额的源码

求vfp编写的小写金额转换为大写金额的源码。

借用别人的代码，已经在收费系统上运行一年多了，应该没问题了

FUNCTION rmbupper()
lParameters mmje &&输入变量：数字型，小于9万亿,大于-9万亿
Private dx,aa,i
dx=Iif(mmje<0,'负','')
aa=Round(Abs(mmje)*100,0)
For i=Len(Alltrim(Str(aa,15)))-1 To 0 Step -1
dx=dx+Subs('零壹贰叁肆伍陆柒捌玖',Int(Round(aa/10^i,10))*2+1,2)+Subs('分角元拾佰仟万拾佰仟亿拾佰仟万',i*2+1,2)
aa=Mod(aa,10^i)
Endf
dx=Strtran(Strtran(Strtran(Strtran(Strtran(dx,'零仟','零'),'零佰','零'),'零拾','零'),'零角','零'),'零分','整')
dx=Strtran(Strtran(Strtran(Strtran(Strtran(dx,'零零','零'),'零零','零'),'零亿','亿'),'零万','万'),'零元','元')
Return Iif(dx='整','零元整',Strtran(Strtran(dx,'亿万','亿'),'零整','整'))
ENDFUNC

到技术网站问问高手