Asp.net (vb) implements the function of converting amounts to uppercase values.

Copy codeThe Code is as follows: ''' <summary>
''' Converts data to a Double number.
''' </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

Copy codeThe Code is as follows: ''' <summary>
''' Converts the amount to uppercase.
''' </Summary>
''' <Param name = "Money"> amount </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 ("-"), "negative ","")
Money = Money. Replace ("-", ""). Replace (".","")
Dim Number As String = ""
Dim Unit As String = "dianyuan yaobaibaibaibaibaibaibaibaibaibaibaibaibaibaibaibaibaiwan"
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 & "whole"
Return str
End Function