asp.net(vb)实现金额转换成大写的函数_asp.net教程-查字典教程网
asp.net(vb)实现金额转换成大写的函数
asp.net(vb)实现金额转换成大写的函数
发布时间:2016-12-29 来源:查字典编辑
摘要:复制代码代码如下:''''''将数据转换为Double数字''''''''''''PublicSharedFunctiontodbl(ByV...

复制代码 代码如下:

''' <summary>

''' 将数据转换为Double数字

''' </summary>

''' <param name="Obj"></param>

''' <returns></returns>

''' <remarks></remarks>

Public Shared Function todbl(ByVal Obj As Object) As Double

If Obj Is DBNull.Value Then

Return 0

ElseIf IsNumeric(Obj) = False Then

Return 0

Else

Return Obj

End If

End Function

复制代码 代码如下:

''' <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教程学习
    热门asp.net教程学习
    编程开发子分类