将人民币的数字表示转化成大写表示(VB.NET版) (原chenyu001C#版)

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

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!