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

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

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