VB.NET 人民币大小写（正负）的代码

概述VB.NET 人民币大小写（正负）的代码

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Sub ChangeSize_Selected(ByVal sender As Object,ByVal e As EventArgs)        panel1.WIDth = papersize.SelectedValue    End Sub      Function ConvertToRMB(ByVal inputString As String) As String        Dim numList As String = “零壹贰叁肆伍陆柒捌玖”        Dim rmbList As String = “分角元拾佰仟万拾佰仟亿拾佰仟万”        Dim number As Double = 0        Dim tempOutString As String = “”        Try            number = Double.Parse(inputString)        Catch ex As SystemException            ClIEntScript.RegisterStartupScript(Me.GetType(),“”,GetAlertInfo(“传入参数非数字！”))            ‘ MessageBox.Show(“”)        End Try        If number > 9999999999999.99 Then            Return “超出范围的人民币值”        End If         Dim tempNumberString As String = Convert.ToInt64( number * 100).ToString()        Dim tempNmberLength As Integer = tempNumberString.Length        Dim i As Integer = 0     If tempNumberString.StartsWith(“-”) Then        tempOutString = “负”        i = i + 1    end if        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                    If Not tempOutString Is nothing Then                        Dim tempEnd As Boolean = tempOutString.EndsWith(“亿”)                        Dim zeroEnd As Boolean = 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            End If            i += 1        End While        If Not tempOutString Is nothing Then            While tempOutString.EndsWith(“零”)                tempOutString = tempOutString.Substring(0,tempOutString.Length – 1)            End While            While tempOutString.EndsWith(“元”)                tempOutString = tempOutString + “整”            End While            Return tempOutString        Else            Return “”        End If    End Function

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的VB.NET 人民币大小写（正负）的代码全部内容，希望文章能够帮你解决VB.NET 人民币大小写（正负）的代码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。