• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[分享脚本] 百万以内数字转换成中文大写(数值, 普通金融读法) [复制链接]

1#
  1. Dim a, i
  2. a = array(0, 10, 19, 200, 317, 428, 502, 520, 1314, 4000, 4018, 4068, 12005, 102054, 100306, 321235, 301568)
  3. For i = 0 To UBound(a)
  4. TracePrint a(i) & " -> " & 百万以内数字转换成中文大写(a(i), "金融")
  5. Next
复制代码
  1. Function 百万以内数字转换成中文大写(数值, 普通金融读法)
  2. Dim a0, a1, b, h1
  3. h1="壹贰叁肆伍陆柒捌玖"
  4. a1 = int(数值 / 100000)
  5. If a1 > 9 Then
  6. 百万以内数字转换成中文大写 = "数值大于等于一百万,敬请期待函数功能更新^_^"
  7. Exit Function
  8. ElseIf a1 > 1 Then
  9. b = mid(h1, a1, 1) & "拾" : a0 = 0
  10. ElseIf a1 = 1 Then
  11. If 普通金融读法 = "金融" Then
  12. b = "壹拾"
  13. Else
  14. b = "拾"
  15. End If
  16. a0 = 0
  17. Else
  18. b = "" : a0 = 1
  19. End If
  20. a1 = int((数值 mod 100000) / 10000)
  21. If a1 > 0 Then
  22. b = b & mid(h1, a1, 1) & "万" : a0 = 0
  23. ElseIf b <> "" Then
  24. b = b & "万" : a0 = 1
  25. End If
  26. a1 = int((数值 mod 10000) / 1000)
  27. If a1 > 0 Then
  28. b = b & mid(h1, a1, 1) & "仟" : a0 = 0
  29. Else
  30. a0 = 1
  31. End If
  32. a1 = int((数值 mod 1000) / 100)
  33. If a1 > 0 Then
  34. If a0 = 1 and b <> "" Then b = b & "零"
  35. b = b & mid(h1, a1, 1) & "佰" : a0 = 0
  36. Else
  37. a0 = 1
  38. End If
  39. a1 = int((数值 mod 100) / 10)
  40. If a1 > 0 Then
  41. If a0 = 1 and b <> "" Then b = b & "零"
  42. b = b & mid(h1, a1, 1) & "拾" : a0 = 0
  43. If 数值 > 9 and 数值 < 20 and 普通金融读法 <> "金融" Then b = "拾"
  44. Else
  45. a0 = 1
  46. End If
  47. a1 = 数值 mod 10
  48. If a1 > 0 Then
  49. If a0 = 1 and b <> "" Then b = b & "零"
  50. b = b & mid(h1, a1, 1)
  51. ElseIf a0 = 1 and b = "" Then
  52. b = "零"
  53. End If
  54. 百万以内数字转换成中文大写 = b
  55. End Function
复制代码

2#

帮顶一下

按键会友,共同进步,QQ 3766 9324地下城堡2辅助交流http://bbs.anjian.com/showtopic-660386-1.aspx
3#

回复看隐藏了啥

4#

回复看看。。。

5#

这个有意思

6#

看看。。。。。。。。。

7#

学习一下 就脑袋疼一大堆数字

8#

百万以内数字转换成中文大写

9#

学习

10#

帮顶一下

熊家班熊叫兽
11#

好吧你是快要被我的不

12#

sky图

13#

回复看隐藏了啥

这个人很懒,什么都没留下。
14#

dddddd

发新话题 回复该主题