英语高手请进（货币转换为英语表达方式问题）

[sfply]

怎么写函数使阿拉伯货币数值转换为英语货币数值
比如
US$5300 - five thousand and three hundred Dollar

因为英语的表达方式比较灵活不象中文固定了 万 千 百 十 元什么的
大家帮忙谢谢

[bubuy]

要写程序当然要有一定得逻辑，如果没有逻辑，程序是写不出来得。

我E奇差，你说说它们之间得逻辑

[sfply]

英语方面逻辑比较多，我E文也差才来求教大家的！

[xxrl]

这个问题有点难度噢,

[angelheavens]

思路:
象标尺一样
先确定 亿 万 千 百 十 点 单位
然后再得出长度
比如:
aa="102414240.23534643643643..."(小数位不记单位)
划分
aa="1,024,1,4,2,40.2354364...."(亿 万 千 百 十固定的)

更大数字再(亿 万 千 百 十)递归即可


不知道楼主是否明白

[nba23]

http://www.6to23.com/s11/s11d1/s11d1d4/2003826151654.htm

[sfply]

楼上的方法是一个可行的方法
只不过，咳咳，写这个函数的人也太过于懒散了
1、所有变量都未经声明，偶得一个一个去重新声明
2、没有任何的缩进，偶又得一行一行改。。。
3、变量没有任何意义，看得人头大
4、最要命的是执行起来还出错，没办法得到正确结果，看来的自己去修改一下了

[sfply]

大家注意一下，如果用nba23 提供的页面里的函数会存在一些问题
如果小数只有一位的话就会出错
所以大家需要修改一下，即增加第5行的内容，如果小数位不够2位就增加一个0
function make(x)
dim z,lstr,rstr,lstrev,lm,xs
z = instr(1,x,".",1) '取小数点位置
if z <> 0 then '判断有没有小数
if len(x) < z + 2 then x = x & "0"
lstr = mid(x,1,z-1) '取小数点左边的字串
rstr = mid(x,z+1,2) '取小数点右边的字串
else
lstr=x '没有小数的情况
end if