# 求一金額轉英文程序，請有的朋友幫忙，謝謝啦！很急啊！！！！

alen001 2006-04-21 10:58:55

...全文
96 6 点赞 打赏 收藏 举报

6 条回复

dfwxj 2006-04-22

• 打赏
• 举报

Delphi的例子：
http://tech.cixiong.com/t/200404/15/0171570.html
• 打赏
• 举报

Delphi的例子：

http://tech.cixiong.com/t/200404/15/0166305.html
• 打赏
• 举报

http://www.devedu.com/develop/2005-11-16/2731/default.aspx
• 打赏
• 举报

http://www.itwen.com/07prog/02cc/cc20060316/38953.html

• 打赏
• 举报

TERRYYRRET 2006-04-22

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=171426

FUNCTION UPPERRMB
PARAMETER RMB
PRIVATE UNIT, NUMBER, I, RETVAR
UNIT = '分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟'
NUMBER = '零壹贰叁肆伍陆柒捌玖'
RMB = INT(RMB*100+0.5)
RETVAR = ''
DO WHILE RMB>0
RETVAR = SUBSTR(NUMBER,2*(MOD(RMB,10))+1,2)+LEFT(UNIT,2)+RETVAR
RMB = INT(RMB/10)
UNIT = SUBSTR(UNIT,3)
ENDDO
RETVAR = STRTRAN(RETVAR,'零仟','零')
RETVAR = STRTRAN(RETVAR,'零佰','零')
RETVAR = STRTRAN(RETVAR,'零拾','零')
RETVAR = STRTRAN(RETVAR,'零角','零')
DO WHILE '零零'\$RETVAR
RETVAR = STRTRAN(RETVAR,'零零','零')
ENDDO
RETVAR = STRTRAN(RETVAR,'零亿','亿')
RETVAR = STRTRAN(RETVAR,'零万','万')
RETVAR = STRTRAN(RETVAR,'亿万','亿零')
RETVAR = STRTRAN(RETVAR,'零零','零')
RETVAR = STRTRAN(RETVAR,'零圆','圆')
RETVAR = STRTRAN(RETVAR,'零分','整')
RETVAR = IIF(LEN(RETVAR)=0,'零圆整',RETVAR)
RETURN RETVAR

• 打赏
• 举报

VFP

2500

VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。

2006-04-21 10:58