[原创]与[推荐]数字金额转换中文大写与英文字母

小请

非常棒，谢谢！

zpnltx2007

请教一下，如何实现不要DOLLARS，CENTS等货币符号，只是单纯地把数字转换成英文即可。同时如何实现 转换成的英文是首字母大写或者全部大写或者全部小写这样一个功能？

Samsea

YuanJQ 发表于 2011-12-24 12:35
请问怎么在前面加上
1、 US DOLLARS
2、 百和十中间加上and

   
    ................
    End Select
    SpellNumber = "US DOLLARS " & Dollars & Cents & " Only"
    End Function

百和十中间加上and 似乎不妥。这是正宗西人写的模块。

YuanJQ

请问怎么在前面加上
1、 US DOLLARS
2、 百和十中间加上and
3、 末尾加上only
谢谢！

zhczhyyhm

谢谢分享！

lishengxi

好，好！正解

学生甲1

谢谢!学习一下.

chenwei0713

学习学习，谢谢分享

flywolfer

例如$86,174.93, EIGHTY SIX THOUSAND ONE HUNDRED SEVENTY FOUR AND 93/100 UNITED STATES DOLLARS，请问楼主大虾能实现这样的格式吗？！万分感谢!!!这个是美国银行单据上要求的格式，貌似真的很少见...

ugyun

经测试，当小写金额为负数时，大写未能正常转，修改后就可以了：
' 试编写数字金额转中文大写的函数
' lin jin xiang 08-07-2004

Function DaXie(ByVal Num)       ' 人民币中文大写函数
    Application.Volatile True
    Place = "分角元拾佰仟万拾佰仟亿拾佰仟万"
    Dn = "壹贰叁肆伍陆柒捌玖"
    D1 = "整零元零零零万零零零亿零零零万"
    If Num < 0 Then FuHao = "（负）"
    Num = Format(Abs(Num), "###0.00") * 100
    If Num > 999999999999999# Then: DaXie = "数字超出转换范围!!": Exit Function
    If Num = 0 Then: DaXie = "零元零分": Exit Function
    NumA = Trim(Str(Num))
    NumLen = Len(NumA)
    For j = NumLen To 1 Step -1     ' 数字转换过程
      Temp = Val(Mid(NumA, NumLen - j + 1, 1))
      If Temp <> 0 Then             ' 非零数字转换
         NumC = NumC & Mid(Dn, Temp, 1) & Mid(Place, j, 1)
      Else                          ' 数字零的转换
         If Right(NumC, 1) <> "零" Then
           NumC = NumC & Mid(D1, j, 1)
         Else
           Select Case j            ' 特殊数位转换
                Case 1
                  NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1)
                Case 3, 11
                  NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) & "零"
                Case 7
                  If Mid(NumC, Len(NumC) - 1, 1) <> "亿" Then
                     NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) & "零"
                  End If
                Case Else
           End Select
         End If
      End If
    Next
    DaXie = FuHao & Trim(NumC)
End Function