.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
将货币的小写转换为大写,例如:肆佰陆拾贰圆捌角柒分

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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

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




相关文章

相关软件