| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]求个代码，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26303) |
| -- 作者：KSTG9993388 -- 发布时间：2012/11/29 16:00:00 -- [求助]求个代码，谢谢 求个代码，例如我想把千位数的1转成one 2转成two、百位数的1转成one，改怎么写代码，谢谢 |
| -- 作者：lin_hailun -- 发布时间：2012/11/29 16:05:00 -- 呃，不清楚你的具体应用，你做个合适的例子发上来。立马解决。 |
| -- 作者：KSTG9993388 -- 发布时间：2012/11/29 16:10:00 -- 我开发个支票套打软件··但我是外国的··不能用中文 例如··金额是1234 那么我想把千位数的1转成ONE 百位数的2转成TWO 十位显示Three 那么123打出来就现实ONE TWO THREE |
| -- 作者：lin_hailun -- 发布时间：2012/11/29 16:16:00 -- 比如，代码可以这样写。 Dim en() As String = {"zero", "one", "two", "three"} Dim num As Double = 123032 Dim nums As String = CStr(num) Dim ch As String For Each n As String In nums ch = ch & en(n) Next msgbox(ch) |
| -- 作者：KSTG9993388 -- 发布时间：2012/11/29 16:19:00 -- 好的··我试下··谢谢你了 |
| -- 作者：e-png -- 发布时间：2012/11/29 16:47:00 -- 如果是金额用：EUNumber |
| -- 作者：lin_hailun -- 发布时间：2012/11/29 16:49:00 -- 呃，好吧。 http://www.foxtable.com/help/topics/0322.htm http://www.foxtable.com/help/topics/0323.htm |
| -- 作者：KSTG9993388 -- 发布时间：2012/11/29 17:50:00 -- 你好··QQ能加个好友吗 |
| -- 作者：KSTG9993388 -- 发布时间：2012/11/29 17:57:00 -- q号是71677936··希望加个好友··谢谢··还有几点东西不懂 |