复制代码 代码如下:

''' <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