打印人民币大写问题（打印发票调用）！

Question

好像有个函数，我帮你找找，帮主做的

Answer 1

'支持人民币、外币
'N 是数字金额     CCNO 是货币代号(详见程序)
Function DVC(N As String,CCNO As String) As String
Dim Num As String
Dim Prt As String
Dim L As Integer
Dim B As Integer
Dim C As String
Dim T As Integer
Dim J As Integer
Dim LastCha As String
Dim PrtCha As String
Dim Nums As String
Dim U As Integer
Dim S As String
Dim Cha As String
Dim NumCha As String
CCNO = "01"
Num = Trim$(N)
Prt = Empty
L = Len(Num) - 3
B = L - Int(L / 4) * 4
Nums = Left(Num, L)
LastCha = Empty
PrtCha = Empty
C = Empty
T = 1
J = L
U = B
If B = 0 And L > 4 Or B = 0 And L = 4 Then
U = 4
End If
Do While T < L + 1
S = Mid$(Nums, T, 1)
Select Case S
   Case "1"
   NumCha = "壹"
   Case "2"
   NumCha = "贰"
   Case "3"
   NumCha = "叁"
   Case "4"
   NumCha = "肆"
   Case "5"
   NumCha = "伍"
   Case "6"
   NumCha = "陆"
   Case "7"
   NumCha = "柒"
   Case "8"
   NumCha = "捌"
   Case "9"
   NumCha = "玖"
   Case "0"
   NumCha = ""
End Select
Select Case U
   Case 1
   C = ""
   Case 2
   C = "拾"
   Case 3
   C = "佰"
   Case 4
   C = "仟"
End Select
If S <> "0" And LastCha = "0" Then
   PrtCha = PrtCha + "零"
End If
If S <> "0" Then
   PrtCha = PrtCha + NumCha + C
End IfIf J = 9 Or J = 5 Or J = 1 Then
Select Case J
   Case 9
   Cha = "亿"
   Case 5
   Cha = "万"
End Select
If J = 1 Then
   Select Case CCNO
      Case "01"
      Cha = "元"
      Case "12"
      Cha = "镑"
      Case "13"
      Cha = "元"
      Case "14"
      Cha = "元"
      Case "15"
      Cha = "法郎"
      Case "16"
      Cha = "马克"
      Case "17"
      Cha = "法郎"
      Case "18"
      Cha = "元"
      Case "20"
      Cha = "盾"
      Case "21"
      Cha = "克朗"
      Case "22"
      Cha = "克朗"
      Case "23"
      Cha = "克朗"
      Case "24"
      Cha = "先令"
      Case "25"
      Cha = "法郎"
      Case "26"
      Cha = "里拉"
      Case "27"
      Cha = "元"
      Case "28"
      Cha = "元"
      Case "29"
      Cha = "元"
      Case "32"
      Cha = "林吉特"
      Case "42"
      Cha = "马克"
      Case "81"
      Cha = "元"
      Case "82"
      Cha = "比索"
      Case "84"
      Cha = "铢"
    End Select
End If
PrtCha = PrtCha + Cha
End If
J = J - 1
T = T + 1
U = U - 1
If U = 0 Then
 U = 4
End If
LastCha = S
S = "0"
LoopNums = Right$(Num, 2)
T = 1
Do While T < 3 And Nums <> "00"
S = Mid$(Nums, T, 1)
Select Case S
   Case "1"
   NumCha = "壹"
   Case "2"
   NumCha = "贰"
   Case "3"
   NumCha = "叁"
   Case "4"
   NumCha = "肆"
   Case "5"
   NumCha = "伍"
   Case "6"
   NumCha = "陆"
   Case "7"
   NumCha = "柒"
   Case "8"
   NumCha = "捌"
   Case "9"
   NumCha = "玖"
   Case "0"
   NumCha = ""
 End Select
 C = ""
If S <> "0" And CCNO = "01" And T = 1 Then
   C = "角"
PrtCha = PrtCha + NumCha + C
End If
If S <> "0" And CCNO = "13" And T = 1 Then
   C = "仙"
PrtCha = PrtCha + NumCha + C
End If
If S <> "0" And CCNO <> "01" And CCNO <> "13" And T = 1 Then
   C = "拾"
PrtCha = PrtCha + NumCha + C
End IfIf T = 2 And CCNO <> "01" And CCNO <> "13" Then
   Select Case CCNO
      Case "12"
      C = "便士"
      Case "14"
      C = "分"
      Case "15"
      C = "分"
      Case "16"
      C = "芬尼"
      Case "17"
      C = "分"
      Case "18"
      C = "分"
      Case "20"
      C = "分"
      Case "21"
      C = "欧尔"
      Case "22"
      C = "欧尔"
      Case "23"
      C = "欧尔"
      Case "24"
      C = "分"
      Case "25"
      C = "分"
      Case "26"
      C = "分"
      Case "27"
      C = "钱"
      Case "28"
      C = "分"
      Case "29"
      C = "分"
      Case "32"
      C = "分"
      Case "42"
      C = "芬尼"
      Case "81"
      C = "分"
      Case "82"
      C = "分"
      Case "84"
      C = "萨当"
    End Select
PrtCha = PrtCha + NumCha + C
End If
If T = 2 And CCNO = "01" And S <> "0" Then
  PrtCha = PrtCha + NumCha + "分"
End If
If T = 2 And CCNO = "13" And S <> "0" Then
  PrtCha = PrtCha + NumCha + "毫"
End IfT = T + 1
LoopIf Right$(Nums, 1) = "0" Then
 Prt = PrtCha + "整"
 Else
 Prt = PrtCha
End If
DVC = Prt  'Only RMB

Answer 2

输入字符串需要格式化才可使用！