【金额】asp.net(vb)实现金额转换成大写的函数-大写

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【asp.net(vb)实现金额转换成大写的函数】，下面是详细的讲解！

asp.net(vb)实现金额转换成大写的函数

''' <summary>
''' 将金额转换成大写
''' </summary>
''' <param name="Money">金额</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function UpperMoney(ByVal Money As String) As String
Money=todbl(Money).ToString("0.00")
Dim strFuShu As String=IIf(Money.StartsWith("-"), "负", "")
Money=Money.Replace("-", "").Replace(".", "")
Dim Number As String="零壹贰叁肆伍陆柒捌玖"
Dim Unit As String="分角元拾佰仟万拾佰仟亿拾佰仟万"
Dim str As String
For i As Integer=0 To Money.Length - 1
Dim c As String=Money.Chars(i)
Dim Index As Integer=Money.Length - 1 - i
str &=Number(c) & Unit(Index)
Next
str=strFuShu & str & "整"
Return str
End Function

关于asp.net(vb)实现金额转换成大写的函数的用户互动如下：

　　相关问题：VB 将数字字符串转换成数值，判断是否是数字字符串...

　　答：val将数字字符串转换成数值 可以用if x= val(x) 来判断是否是数字字符串 关于实现大小写字母间的转换，楼上说反了，转大写字母用Ucase，转小写字母用Lcase >>详细

　　相关问题：vb.net中的字符大小写转换函数 是哪个?

　　答：String的成员函数中就有 ToUpper() 和 ToLower()啊 Dim a As String = "abcEd" Dim b As String = a.ToUpper() //大写 Dim c As String = a.ToLower() //小写 >>详细

　　相关问题：求vb金额小写转为大写的代码，带详细注释的！！！！

　　答：转自http://club.excelhome.net/thread-143867-7-1.html 将阿拉伯数字转换为汉字数字,支持到百万亿(比如大写金额) 例子: Debug.Print UpNumber(-612325646566.46,0,True ) 负陆仟壹佰贰拾叁亿贰仟伍佰陆拾肆万陆仟伍佰陆拾陆圆肆角陆分 Debug.Pr... >>详细