PROCEDURE Money
Money=JE
CMoney=Allt(Str(Money,16,2))
*定义数组
DIME CaseFormat(10)
CaseFormat(1) ="壹"
CaseFormat(2) ="贰"
CaseFormat(3) ="叁"
CaseFormat(4) ="肆"
CaseFormat(5) ="伍"
CaseFormat(6) ="陆"
CaseFormat(7) ="柒"
CaseFormat(8) ="捌"
CaseFormat(9) ="玖"
Dime Unit(3)
Unit(1) ="拾"
Unit(2) ="佰"
Unit(3) ="仟"
*开始转换
M_C=""
M_Cmoney=""
MoneyLen=len(CMoney)
y=0
For z=MoneyLen To 1 step -1
Nowmoney=val(substr(CMoney,z,1))
IF Nowmoney>0
do case
Case z = MoneyLen
M_Cmoney=CaseFormat(Nowmoney)+"分"
Case z = MoneyLen-1
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载