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

原创 2004年09月28日 19:34:00

'将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分<?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
  • cnsyjsj
  • 2017年02月03日 18:56
  • 470

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

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

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

将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分Public Function Num2Chi(ByVal txtJE As Double) As String    Dim i, K As Int...
  • iwebsms
  • iwebsms
  • 2004年09月28日 19:34
  • 1993

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

前两天看了,一个技术牛人的访谈,讲的非常的精彩。我只记得当中他说,程序员要怎么学习。提了很重要的一点,就是要经常性的写博客,把自己学到的知识,分享出来,这样不仅可以提高自己的能力,还能够让别人看你程序...
  • lanxingfeifei
  • lanxingfeifei
  • 2016年02月01日 14:55
  • 2759

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

在Delphi中,为了实现货币数值运算中的严格精度要求,内部把货币类型数据当作一个放大10000倍的64位整数来处理。这样根据64位整数的范围,可以得出货币类型Currency的范围是 [-92233...
  • tht2009
  • tht2009
  • 2017年06月15日 15:03
  • 476

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

本程序的作用是将人民币的小写形式转换为大写,例如:调用upper(“18.5″),将会返回字符串“壹拾捌圆伍角”。 [java] view plaincopy pack...
  • guaishushu1ss
  • guaishushu1ss
  • 2017年08月06日 10:48
  • 434

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

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

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

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

(转)WORD中小写金额转换成大写

转自:http://www.officefans.net/cdb/viewthread.php?tid=52631 * +++++++++++++++++++++++++++++* Created B...
  • anyqu
  • anyqu
  • 2009年11月12日 10:10
  • 5414

angularJs过滤器(货币转换,大小写,字数限制,日期)

{{price}} {{price|currency}} {{price|cu
  • u012396955
  • u012396955
  • 2017年05月31日 15:41
  • 1370
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分
举报原因:
原因补充:

(最多只允许输入30个字)