Copy Code code as follows:
"' <summary>
"Converts data to double numbers
"' </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 Code code as follows:
' <summary>
' converts the amount to uppercase
' ' </summary>
' &L T;param name= "Money" > Amount </param>
' <returns></returns>
' <remarks></ remarks>
Public Shared Function Uppermoney (ByVal Money As String) As String
, Todbl (Money). ToString ("0.00")
Dim Strfushu as String = IIf (Money.startswith ("-"), "negative", "")
Money = Money.replace ("-", ""). R Eplace (".", "")
Dim number As String = "0 One Woolu seven ba"
Dim Unit As String = "cent thousand thousand hundred thousand thousand million to pick up"
Dim str As St Ring
for i As Integer = 0 to Money.length-1
Dim c as String = Money.chars (i)
Dim Index As Integer = Mo Ney. Length-1-I
Str &= number (c) & Unit (Index)
Next
str = strfushu & str & "whole"
Retu RN Str
End Function