# 将货币的小写转换为大写，例如：肆佰陆拾贰圆捌角柒分

'将货币的小写转换为大写，例如：肆佰陆拾贰圆捌角柒分<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Public Function Num2Chi(ByVal txtJE As Double) As String

Dim i, K As Integer

Dim NC, nd, ka, chrNum, strZheng As String

Dim c1, c2, c3 As String

Dim K1 As Integer

Dim Zheng As String

Dim Xiao As String

NC = Trim(Format(txtJE, "##0.00"))

c1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"

c2 = "角分"

c3 = "玖捌柒陆伍肆叁贰壹"

If NC = 0 Then

Num2Chi = "零元整"

Exit Function

End If

Num2Chi = ""

Zheng = Mid(NC, 1, (Len(NC) - 3))

Xiao = Mid(NC, (Len(Zheng) + 2))

If Val(Xiao) <> 0 Then

For i = Len(Xiao) To 1 Step -1

chrNum = Mid(Xiao, i, 1)

If chrNum <> 0 Then

Num2Chi = Mid(c2, i, 1) & Num2Chi

Num2Chi = Mid(c3, (Len(c3) - chrNum + 1), 1) & Num2Chi

End If

Next i

End If

K = 0

If Val(Zheng) <> 0 Then

Num2Chi = "元" & Num2Chi

For i = Len(Zheng) To 1 Step -1

If (Len(Zheng) - i) = 4 Then

Num2Chi = "万" & Num2Chi

ElseIf (Len(Zheng) - i) = 8 Then

Num2Chi = "亿" & Num2Chi

ElseIf (Len(Zheng) - i) = 12 Then

Num2Chi = "万" & Num2Chi

End If

chrNum = Mid(Zheng, i, 1)

If chrNum <> 0 Then

If i = Len(Zheng) Then

Num2Chi = Mid(c3, (Len(c3) - chrNum + 1), 1) & Num2Chi

Else

If (Len(Zheng) - i) <> 4 And (Len(Zheng) - i) <> 8 And (Len(Zheng) - i) <> 12 Then

Num2Chi = Mid(c1, (Len(c1) - K), 1) & Num2Chi

End If

Num2Chi = Mid(c3, (Len(c3) - chrNum + 1), 1) & Num2Chi

End If

Else

If Mid(Num2Chi, 1, 1) <> "元" And Mid(Num2Chi, 1, 1) <> "万" And Mid(Num2Chi, 1, 1) <> "亿" Then

If Mid(Num2Chi, 1, 1) <> "零" Then

Num2Chi = "零" & Num2Chi

End If

End If

End If

K = K + 1

Next i

End If

If Right(Trim(Num2Chi), 1) <> "分" Then

Num2Chi = Num2Chi & "整"

End If

End Function

• 本文已收录于以下专栏：

## 一个php下的人民币小写转大写的代码

• cnsyjsj
• 2017年02月03日 18:56
• 470

## JS将人民币小写金额转换为大写

/** 数字金额大写转换(可以处理整数,小数,负数) */ function smalltoBIG(n) { var fraction = ['角', '分']; v...
• k8080880
• 2016年12月07日 12:03
• 662

## 将货币的小写转换为大写，例如：肆佰陆拾贰圆捌角柒分

• iwebsms
• 2004年09月28日 19:34
• 1993

## java版，实现人民币的大小写转换

• lanxingfeifei
• 2016年02月01日 14:55
• 2759

## Delphi货币类型转中文大写金额

• tht2009
• 2017年06月15日 15:03
• 476

## JAVA如何实现人民币大小写转换

• guaishushu1ss
• 2017年08月06日 10:48
• 434

## 用PHP实现小写金额转换大写金额【精确到分】

/** *数字金额转换成中文大写金额的函数 *String Int \$num 要转换的小写数字或小写字符串 *return 大写字母 *小数位为两位 **/ function get_...
• jucrazy
• 2012年01月03日 21:09
• 4428

## java将大写数字转换成小写并输出

import java.util.Scanner; public class Low { //lowNumber方法将大写数字转换成小写并输出 private static void lowNu...
• lzl_Avery
• 2017年04月10日 21:52
• 636

## （转）WORD中小写金额转换成大写

• anyqu
• 2009年11月12日 10:10
• 5414

## angularJs过滤器（货币转换，大小写，字数限制，日期）

{{price}} {{price|currency}} {{price|cu
• u012396955
• 2017年05月31日 15:41
• 1370

举报原因： 您举报文章：将货币的小写转换为大写，例如：肆佰陆拾贰圆捌角柒分 色情 政治 抄袭 广告 招聘 骂人 其他 (最多只允许输入30个字)