阿拉伯数字转英文大写

qy1219no2

看到现在金额中文大小写已经无法阻止人类的进攻了，最近开始流行数字转英文大写了，由于时间紧凑，简单弄了一个VBA自定义函数，现贴上来，请各路大侠不吝赐教
目前仅支持正数，且不能超过1万亿！
主体函数是albToEn()

1. 
   
2. Function albToEn(n As Double) As String
   
3.     Dim c1$, c2$, cNum$, nZs$
   
4.     cNum = Format(n, "#,##0.00")
   
5.     nZs = Split(cNum, ".")(0)
   
6.     nXs = Split(cNum, ".")(1)
   
7.     If Val(nZs) = 0 Then
   
8.         c1 = ""
   
9.     Else
   
10.         arr = Split(nZs, ",")
    
11.         m2 = Split(", Thousand , Million , Billion ", ",")
    
12.         For i = 0 To UBound(arr)
    
13.             c1 = c1 & IIf(ZH(arr(i)) = "", "", ZH(arr(i)) & m2(UBound(arr) - i))
    
14.         Next
    
15.     End If
    
16.     c2 = IIf(ZH(nXs) = "", "", IIf(c1 <> "", " And ", "") & "Cents " & ZH(nXs))
    
17.     albToEn = c1 & c2
    
18. End Function
    
19. 
    
20. Function ZH(n100) As String
    
21.     Dim cN$, c1$, c2$
    
22.     cN = Format(n100, "000")
    
23.     s = Val(Right(cN, 2))
    
24.     m0 = Split("One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten,Eleven,Twelve," & _
    
25.                 "Thirteen,Fourteen,Fifteen,Sixteen,Seventeen,Eighteen,Nineteen", ",")
    
26.     m1 = Split("Twenty,Thirty,Forty,Fifty,Sixty,Seventy,Eighty,Ninety", ",")
    
27.     If s > 0 And s < 20 Then
    
28.         c2 = m0(s - 1)
    
29.     ElseIf s > 19 And s < 100 Then
    
30.         c2 = m1(Left(s, 1) - 2)
    
31.         If Right(s, 1) > "0" Then c2 = c2 & " " & m0(Right(s, 1) - 1)
    
32.     End If
    
33.     If Val(Left(cN, 1)) > 0 Then c1 = m0(Left(cN, 1) - 1) & " Hundred "
    
34.     ZH = c1 & c2
    
35. End Function

复制代码

小花鹿

什么叫英文大写？

aman1516

#VALUE，执行不了。楼主能否做个示例？
其二，不懂E文数字的语法，转换时不知有什么要求和限制。

qy1219no2

aman1516 发表于 2014-12-11 20:26
#VALUE，执行不了。楼主能否做个示例？
其二，不懂E文数字的语法，转换时不知有什么要求和限制。

代码是有点问题，已经在1楼修改！

aoe1981

这个嘛，呵呵，主要是英文不好啦……

ljq1278

朋友，这个怎么用呢

3C英雄

虽然用不到，不过还是学习一下

playerearth

作者还在吗？代码中22行n100是什么？是数字还是字符串，100是起到什么作用？

高个子

学到了

micch

得先找个英语会计，问问英文金额书写规则