人民币大小写转换.vbs

fastslz

1. mCn=Inputbox ("请输入小写数字:","提示信息...","0.00")
   
2. If IsNumeric(mCn) And mCn<>"" then
   
3.   Cn=MoneyCn(Abs(Trim(mCn)))
   
4.   MsgBox Abs(Trim(mCn))&Chr(10)&Cn, 64, "转换结果..."
   
5. Else
   
6.   MsgBox "不是合理的人民币数字!", 64, "错误信息..."
   
7. End If
   
8. 
   
9. Function MoneyCn(Num)
   
10.   if Instr(1,""&Num,".")=0 then
    
11.     Num=Num&".00"
    
12.   end if
    
13.   pp=Instr(1,""&Num,".")-1
    
14.   ll=len(Num)
    
15.   For i=1 to ll
    
16.     ss=Mid(Num,i,1)
    
17.     Select case ss
    
18.       case "."
    
19. Result=Result&"元"
    
20.       case "0"
    
21. Result=Result&"零"
    
22.       case "1"
    
23. Result=Result&"壹"
    
24.       case "2"
    
25. Result=Result&"贰"
    
26.       case "3"
    
27. Result=Result&"叁"
    
28.       case "4"
    
29. Result=Result&"肆"
    
30.       case "5"
    
31. Result=Result&"伍"
    
32.       case "6"
    
33. Result=Result&"陆"
    
34.       case "7"
    
35. Result=Result&"柒"
    
36.       case "8"
    
37. Result=Result&"捌"
    
38.       case "9"
    
39. Result=Result&"玖"
    
40.     End Select
    
41.     mm=pp-i
    
42.     Select case mm
    
43.       case -5
    
44. Result=Result&"毫"
    
45.       case -4
    
46. Result=Result&"厘"
    
47.       case -3
    
48. Result=Result&"分"
    
49.       case -2
    
50. Result=Result&"角"
    
51.       case 1
    
52. Result=Result&"拾"
    
53.       case 2
    
54. Result=Result&"佰"
    
55.       case 3
    
56. Result=Result&"仟"
    
57.       case 4
    
58. Result=Result&"万"
    
59.       case 5
    
60. Result=Result&"拾"
    
61.       case 6
    
62. Result=Result&"佰"
    
63.       case 7
    
64. Result=Result&"仟"
    
65.       case 8
    
66. Result=Result&"亿"
    
67.       case 9
    
68. Result=Result&"拾"
    
69.       case 10
    
70. Result=Result&"佰"
    
71.       case 11
    
72. Result=Result&"仟"      
    
73.     End Select
    
74.   Next
    
75.   Result=Replace(Result, "零仟", "零")
    
76.   Result=Replace(Result, "零佰", "零")
    
77.   Result=Replace(Result, "零拾", "零")
    
78.   Result=Replace(Result, "零零", "零")
    
79.   Result=Replace(Result, "零零", "零")
    
80.   Result=Replace(Result, "零零", "零")
    
81.   Result=Replace(Result, "零元", "元")
    
82.   Result=Replace(Result, "零角零分", "整")
    
83.   MoneyCn=Result
    
84. End Function

复制代码