社区
VFP
帖子详情
求一金額轉英文程序,請有的朋友幫忙,謝謝啦!很急啊!!!!
alen001
2006-04-21 10:58:55
如題
...全文
119
6
打赏
收藏
求一金額轉英文程序,請有的朋友幫忙,謝謝啦!很急啊!!!!
如題
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
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()找到其位置就可以了
10分钟实现微信小
程序
支付功能
核心代码就下面这些 一,创建一个云开发小
程序
关于如何创建云开发小
程序
,这里我就不再做具体讲解。不知道怎么创建云开发小
程序
的同学,可以去翻看我之前的文章,或者看下我录制的视频:...
offer选择!求hxd们帮忙选选 引流华为字节比亚迪707
北京户口,不用担心裁员。中科曙光(总包28w,昆山,...211农专黍鼠,投了一百多份java岗就收到4个笔试,1个面试,还都没消息了,有没有什么点击就送的公司推荐,薪资8000左右,岗位无所谓了,专业不对口的也行,人。
超全的英语短句汇集
English 900 英语九百句常用职位
英文
译名超级短句成语集锦打开话匣子PC电脑词汇一百个绝佳句型李阳英语365句托福听力常用短语校园英语迷你惯用语洋话连篇至理名言English 900 英语九百句第一册一、 Greetings ...
English 900 英语九百句
常用职位
英文
译名超级短句成语集锦打开话匣子PC电脑词汇一百个绝佳句型李阳英语365句托福听力常用短语校园英语迷你惯用语洋话连篇至理名言English 900 英语九百句第一册一、 Greetings 问候语 1. hello! / ...
我在CSDN参与的3000个帖子
2:100分
急
求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,...
VFP
2,722
社区成员
29,108
社区内容
发帖
与我相关
我的任务
VFP
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
复制链接
扫一扫
分享
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章