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

[alen001]

如題

[TERRYYRRET]

请参考：
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

不过你的是英文，你可以在字串中，把各单位用逗号格开

然后再用at()找到其位置就可以了

[十豆三]

请参考这个例子：
http://www.itwen.com/07prog/02cc/cc20060316/38953.html

遗憾的是这个不是VFP的代码

[十豆三]

http://www.devedu.com/develop/2005-11-16/2731/default.aspx

[十豆三]

Delphi的例子：

http://tech.cixiong.com/t/200404/15/0166305.html

[十豆三]

Delphi的例子：
http://tech.cixiong.com/t/200404/15/0171570.html

[dfwxj]

不会读，不知道英文读数规则