VB.NET中数字转化为大写

转载 2006年06月02日 15:40:00

Public Class chinesenum
    '输入字串

    Private _InputString As String

    '输出字串,如果无效则输出错误信息

    Private _OutString As String

    '判断输出字串是否有效

    Private _Valiad As Boolean

 

    Public WriteOnly Property InputString() As String

        Set(ByVal Value As String)

            _InputString = Value

            ConvertToChineseNum()

        End Set

    End Property

    Public ReadOnly Property Valiad() As Boolean

        Get

            Return _Valiad

        End Get

    End Property

    Public ReadOnly Property OutString() As String

        Get

            Return _OutString

        End Get

    End Property

    Private Sub ConvertToChineseNum()

        Dim numList As String = "零壹贰叁肆伍陆柒捌玖"

        Dim rmbList As String = "分角元拾佰仟万拾佰仟亿拾佰仟万"

        Dim number As Double = 0

        Dim tempOutString As String = ""

        Try

            number = Double.Parse(Me._InputString)

        Catch ex As SystemException

            Me._OutString = "传入参数非数字!"

            Me._Valiad = False

            Return

        End Try

        If number > 9999999999999.99 Then

            Me._Valiad = False

            Me._OutString = "超出范围的人民币值"

            Return

        End If

        Dim tempNumberString As String = Convert.ToInt64(number * 100).ToString()

        Dim tempNmberLength As Integer = tempNumberString.Length

        Dim i As Integer = 0

        While i < tempNmberLength

            Dim oneNumber As Integer = Int32.Parse(tempNumberString.Substring(i, 1))

            Dim oneNumberChar As String = numList.Substring(oneNumber, 1)

            Dim oneNumberUnit As String = rmbList.Substring(tempNmberLength - i - 1, 1)

            If Not (oneNumberChar = "零") Then

                tempOutString += oneNumberChar + oneNumberUnit

            Else

                If oneNumberUnit = "亿" OrElse oneNumberUnit = "万" OrElse oneNumberUnit = "元" OrElse oneNumberUnit = "零" Then

                    While tempOutString.EndsWith("零")

                        tempOutString = tempOutString.Substring(0, tempOutString.Length - 1)

                    End While

                End If

                If oneNumberUnit = "亿" OrElse (oneNumberUnit = "万" AndAlso Not tempOutString.EndsWith("亿")) OrElse oneNumberUnit = "元" Then

                    tempOutString += oneNumberUnit

                Else

                    Dim tempEnd As Boolean
                    tempEnd = tempOutString.EndsWith("亿")

                    Dim zeroEnd As Boolean
                    zeroEnd = tempOutString.EndsWith("零")

                    If tempOutString.Length > 1 Then

                        Dim zeroStart As Boolean = tempOutString.Substring(tempOutString.Length - 2, 2).StartsWith("零")

                        If Not zeroEnd AndAlso (zeroStart OrElse Not tempEnd) Then

                            tempOutString += oneNumberChar

                        End If

                    Else

                        If Not zeroEnd AndAlso Not tempEnd Then

                            tempOutString += oneNumberChar

                        End If

                    End If

                End If

            End If

            i += 1

        End While

        While tempOutString.EndsWith("零")

            tempOutString = tempOutString.Substring(0, tempOutString.Length - 1)

        End While

        While tempOutString.EndsWith("元")

            tempOutString = tempOutString + "整"

        End While

        Me._OutString = tempOutString

        Me._Valiad = True

    End Sub


End Class

相关文章推荐

VB.net中金额大写转换

Module Currency Public Class Converter Inherits Object Private Const CST_CAPSTR...
  • lpwmm
  • lpwmm
  • 2016年02月28日 00:28
  • 288

[源码][VB.Net]数字转大写数字和大写人民币函数

[源码][VB.Net]数字转大写数字和大写人民币函数Namespace Hot.Common    Public Class NumUtil        数字转成人民币大写        Publ...

vb .net 转换大写金额函数

Function yh_bigmoney(ByVal num As Double) As String         Dim intpart As Integer         Dim dot...
  • ljq900
  • ljq900
  • 2012年06月29日 17:57
  • 871

VB.NET位运算之交换两个数字的效率分析

一、问题描述 近日,同事Kings给我看了一段奇怪的C#代码,鄙人对位运算了解甚少,初看之下懵了,还真不知道其功能,代码如下: Int32 a=10,b=20; a=a^b; b=a^b;...

VB.net中使文本框只能输入数字

编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性: 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不...

vb.net 限定文本框只能输入数字

编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性:首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不能使用...

【机房重构】--VB.NET限制文本框类型为数字

问题机房重构的过程中涉及到数据类的文本框,比如说基本数据设定,充值金额等,是不允许输入除了数字以外的类型的,因为一旦输入肯定会因为数据类型问题报错。方法在模块中写一个公共方法Module CheckT...

VB.NET使文本框只能输入数字

编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性:首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不能使用...

VB.NET使文本框只能输入数字

编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性: 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就...

vb.net限制文本框只能输入数字

编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性: 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不能...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB.NET中数字转化为大写
举报原因:
原因补充:

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