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

alen001 2006-04-21 10:58:55
如題
...全文
96 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dfwxj 2006-04-22
不会读,不知道英文读数规则
  • 打赏
  • 举报
回复
十豆三 2006-04-22
Delphi的例子:
http://tech.cixiong.com/t/200404/15/0171570.html
  • 打赏
  • 举报
回复
十豆三 2006-04-22
Delphi的例子:

http://tech.cixiong.com/t/200404/15/0166305.html
  • 打赏
  • 举报
回复
十豆三 2006-04-22
http://www.devedu.com/develop/2005-11-16/2731/default.aspx
  • 打赏
  • 举报
回复
十豆三 2006-04-22
请参考这个例子:
http://www.itwen.com/07prog/02cc/cc20060316/38953.html

遗憾的是这个不是VFP的代码
  • 打赏
  • 举报
回复
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

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

然后再用at()找到其位置就可以了
  • 打赏
  • 举报
回复
相关推荐
发帖
VFP
加入

2500

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
申请成为版主
帖子事件
创建了帖子
2006-04-21 10:58
社区公告
暂无公告