''' <summary>
''' Convert the amount to capital
''' </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(("-"), "negative", "")
Money = ("-", "").Replace(".", "")
Dim Number As String = "Zero One Two Three Si Wu Lu Qi Eight Nine"
Dim Unit As String = "Split the 100 million yuan to pick up the 100 million yuan to pick up the 100 million yuan"
Dim str As String
For i As Integer = 0 To - 1
Dim c As String = (i)
Dim Index As Integer = - 1 - i
str &= Number(c) & Unit(Index)
Next
str = strFuShu & str & "whole"
Return str
End Function