显示大写金额在vb.net

问题描述 投票：1回答：5

我有一个在我的表叫FeeAmount列。

在我的网页，我需要显示的单词的数量，例如

Value in Column = 20000 
In Web Page - Twenty Thousand Only

任何人都可以请帮助我如何做到这一点？

vb.net numbers
5个回答
4
投票

尝试这个

Function NumberToText(ByVal n As Integer) As String

   Select Case n
Case 0
  Return ""

Case 1 To 19
  Dim arr() As String = {"One","Two","Three","Four","Five","Six","Seven", _
    "Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen", _
      "Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"}
  Return arr(n-1) & " "

Case 20 to 99
  Dim arr() as String = {"Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"}
  Return arr(n\10 -2) & " " & NumberToText(n Mod 10)

Case 100 to 199
  Return "One Hundred " & NumberToText(n Mod 100)

Case 200 to 999
  Return NumberToText(n\100) & "Hundreds " & NumberToText(n mod 100)

Case 1000 to 1999
  Return "One Thousand " & NumberToText(n Mod 1000)

Case 2000 to 999999
  Return NumberToText(n\1000) & "Thousands " & NumberToText(n Mod 1000)

Case 1000000 to 1999999
  Return "One Million " & NumberToText(n Mod 1000000)

Case 1000000 to 999999999
  Return NumberToText(n\1000000) & "Millions " & NumberToText(n Mod 1000000)

Case 1000000000 to 1999999999
  Return "One Billion " & NumberTotext(n Mod 1000000000)

Case Else
  Return NumberToText(n\1000000000) & "Billion " _
    & NumberToText(n mod 1000000000)
End Select
End Function
2
投票

看到此链接我使用这个功能在我的vb.net应用http://pastebin.com/BjxDv7tR

1
投票
Public Function test(ByVal Amount As Double) As String
    mOnesArray(0) = "ONE"
    mOnesArray(1) = "TWO"
    mOnesArray(2) = "THREE"
    mOnesArray(3) = "FOUR"
    mOnesArray(4) = "FIVE"
    mOnesArray(5) = "SIX"
    mOnesArray(6) = "SEVEN"
    mOnesArray(7) = "EIGHT"
    mOnesArray(8) = "NINE"

    mOneTensArray(0) = "TEN"
    mOneTensArray(1) = "ELEVEN"
    mOneTensArray(2) = "TWELVE"
    mOneTensArray(3) = "THIRTEEN"
    mOneTensArray(4) = "FOURTEEN"
    mOneTensArray(5) = "FIFTEEN"
    mOneTensArray(6) = "SIXTEEN"
    mOneTensArray(7) = "SEVENTEEN"
    mOneTensArray(8) = "EIGHTEEN"
    mOneTensArray(9) = "NINETEEN"

    mTensArray(0) = "TWENTY"
    mTensArray(1) = "THIRTY"
    mTensArray(2) = "FORTY"
    mTensArray(3) = "FIFTY"
    mTensArray(4) = "SIXTY"
    mTensArray(5) = "SEVENTY"
    mTensArray(6) = "EIGHTY"
    mTensArray(7) = "NINETY"

    mPlaceValues(0) = "HUNDRED"
    mPlaceValues(1) = "THOUSAND"
    mPlaceValues(2) = "MILLION"
    mPlaceValues(3) = "BILLION"
    mPlaceValues(4) = "TRILLION"

    test = ConvertNumberToWords(Amount)
End Function

对上面这个函数，然后调用它：

lbl_amtword.Text = func.test(final_salary) & "Only"
1
投票
Function readsingle(ByVal m As Byte) As String

    Dim st As String = ""
    Select Case m
        Case 1 : st = "One" : Case 2 : st = "Two"
        Case 3 : st = "Three" : Case 4 : st = "Four"
        Case 5 : st = "Five" : Case 6 : st = "Six"
        Case 7 : st = "Seven" : Case 8 : st = "Eight"
        Case 9 : st = "Nine" : Case 10 : st = "Ten"
        Case 11 : st = "Eleven" : Case 12 : st = "Twelve"
        Case 13 : st = "Thirteen" : Case 14 : st = "Fourteen"
        Case 15 : st = "Fifteen" : Case 16 : st = "Sixteen"
        Case 17 : st = "Seventeen" : Case 18 : st = "Eighteen"
        Case 19 : st = "Nineteen" : Case 20 : st = "Twenty"
    End Select
    readsingle = st
End Function

Function readtenths(ByVal m As Byte) As String
    Dim n As Double
    n = m \ 10
    Dim st As String = ""
    Select Case n
        Case 2 : st = "Twenty " : Case 3 : st = "Thirty "
        Case 4 : st = "Forty " : Case 5 : st = "Fifty "
        Case 6 : st = "Sixty " : Case 7 : st = "Seventy "
        Case 8 : st = "Eighty " : Case 9 : st = "Ninety "
    End Select
    readtenths = st
End Function
Function readcombined(ByVal m As Byte) As String
    Dim st As String = ""
    Dim n As Double
    If m < 21 Then
        st = readsingle(m)
    ElseIf m < 100 Then
        st = readtenths(m)
        n = m Mod (10)
        st = st & readsingle((n))
    End If
    readcombined = st
End Function
Function num2str(ByVal m As Double) As String
    'If m > 99999999999.0# Then Exit Function
    Dim n As Double
    n = Fix(m / 1000000000)
    Dim st As String = ""
    If m = 0 Or m < 0 Then
        st = " Z E R O"
        num2str = st
        Exit Function
    End If
    If n > 0 Then
        st = st & readcombined((n)) & " Arab "
    End If
    m = m - n * 1000000000
    n = m \ 10000000
    If n > 0 Then
        st = st & readcombined((n)) & " Crore "
    End If
    n = m Mod (10000000)
    n = n \ 100000
    If n > 0 Then
        st = st & readcombined((n)) & " lac "
    End If
    n = m Mod (100000)
    n = n \ 1000
    If n > 0 Then
        st = st & readcombined((n)) & " Thousand "
    End If
    n = m Mod (1000)
    n = n \ 100
    If n > 0 Then
        st = st & readsingle((n)) & " Hundred "
    End If
    n = m Mod (100)
    st = st & " " & readcombined((n))
    num2str = st
End Function
-1
投票
Public Class Form1
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
    Dim y
End Sub
Function no(x As String) As String

    If (x = 0) Then

        Return ""

    ElseIf (x = 1) Then
        Return " One "

    ElseIf (x = 2) Then
        Return " Two "

    ElseIf (x = 3) Then
        Return " Three "

    ElseIf (x = 4) Then
        Return " Four "

    ElseIf (x = 5) Then
        Return " Five "

    ElseIf (x = 6) Then
        Return " Six "

    ElseIf (x = 7) Then
        Return " Seven "

    ElseIf (x = 8) Then
        Return " Eight "

    ElseIf (x = 9) Then
        Return " Nein "


    ElseIf (x = 10) Then
        Return " Ten "

    ElseIf (x = 11) Then
        Return " Eleven "

    ElseIf (x = 12) Then
        Return " Twelve "

    ElseIf (x = 13) Then
        Return " Thirteen "

    ElseIf (x = 14) Then
        Return " Forteen "

    ElseIf (x = 15) Then
        Return " Fiveteen "

    ElseIf (x = 16) Then
        Return " Sixteen "

    ElseIf (x = 17) Then
        Return " Seventeen "

    ElseIf (x = 18) Then
        Return " Eightteen "

    ElseIf (x = 19) Then
        Return " Ninteen "


    End If
End Function
Function ten(y As Integer) As String

    If (y <= 19) Then

        Dim x = y
        Dim s = no(x.ToString)
        Return (s)

    ElseIf (y <= 29) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
       Return (" Twenty" + s)
    ElseIf (y <= 39) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)

        Return (" Thirty" + s)

   ElseIf (y <= 49) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
        Return (" Fourty" + s)



    ElseIf (y <= 59) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
        Return (" Fivfty" + s)
    ElseIf (y <= 69) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
        Return (" Sixty" + s)



    ElseIf (y <= 79) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
        Return (" Seventy" + s)

    ElseIf (y <= 89) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
        Return (" Eighty" + s)

    ElseIf (y <= 99) Then
        Dim arr As Array = y.ToString.ToArray
        Dim z = arr(0)
        Dim x = arr(1)
        Dim s = no(x.ToString)
        Return (" Ninty" + s)
       End If
    End Function

Function zero(z As Integer) As String
    If (z > 0) Then
        Dim arr As Array = TextBox1.Text.ToArray
        Dim a = arr(0)
        If (a = 0) Then
            TextBox2.Text = "invalid no."
        End If
    End If
End Function
Function fir(z As Integer) As String


    If (z >= 1 & z <= 19) Then

        Dim x = z
        Dim s = ten(x.ToString)
        TextBox2.Text = (s)
    End If

End Function
Function two(z As Integer) As String
    If (z >= 1 & z <= 99) Then

        Dim y = z

        Dim t = ten(y.ToString)

        TextBox2.Text = (t)
    End If

End Function
Function hun(z As Integer) As String
    Dim arr As Array = TextBox1.Text.ToArray
    Dim w = arr(0)
    If (z >= 100 & z <= 999) Then
        Dim l = arr(1)
        Dim o = arr(2)
        Dim y = (l + o)

        Dim x = arr(0)
        Dim s = no(x.ToString)

        If (y <= 99) Then

            Dim i = ten(y.ToString)
            TextBox2.Text = (s + " Hundred " + i)
        End If

    End If

End Function
Function thousen(z As Integer) As String
    If (z >= 1000 & z <= 9999) Then
        Dim arr As Array = TextBox1.Text.ToArray
        Dim x = arr(0)
        Dim k = arr(1)
        Dim l = arr(2)
        Dim o = arr(3)
        Dim y = (l + o)
        Dim s = no(x.ToString)
        Dim u = no(k.ToString)
        If (y <= 99) Then

            Dim i = ten(y.ToString)
            TextBox2.Text = (s + " Thousen " + u + " Hundred " + i)
        End If

    End If

End Function
Function tenthou(z As Integer) As String
    Dim arr As Array = TextBox1.Text.ToArray

    If (z >= 10000 & z <= 99999) Then
        Dim w = arr(0)
        Dim v = arr(1)
        Dim e = (w + v)
        Dim x = arr(2)
        Dim q = arr(3)
        Dim k = arr(4)
        Dim f = (q + k)
        Dim y = (e) & (f)
        Dim t = ten(e)
        Dim t2 = ten(f)

        Dim s = no(x.ToString)
        TextBox2.Text = (t + "thousen" + s + "hundred" + t2)
    End If

End Function
Function onelaks(z As Integer) As String
    Dim arr As Array = TextBox1.Text.ToArray
    If (z >= 100000 & z <= 999999) Then
        Dim a = arr(0)
        Dim b = arr(1)
        Dim c = arr(2)
        Dim d = arr(3)
        Dim e = arr(4)
        Dim f = arr(5)
        Dim s = no(a.ToString)
        Dim t = (b) & (c)
        Dim u = no(d.ToString)
        Dim v = (e) & (f)
        Dim t1 = ten(t)
        Dim v1 = ten(v)
        TextBox2.Text = (s + "laks" + t1 + "thousend" + u + "hundread" + v1)
    End If
End Function
Function tenlaks(z As Integer) As String
    Dim arr As Array = TextBox1.Text.ToArray
    If (z >= 1000000 & z <= 9999999) Then
        Dim a = arr(0)
        Dim b = arr(1)
        Dim c = arr(2)
        Dim d = arr(3)
        Dim e = arr(4)
        Dim f = arr(5)
        Dim g = arr(6)
        Dim s = (a) & (b)
        Dim t = (c) & (d)
        Dim u = no(e.ToString)
        Dim v = (f) & (g)
        Dim s1 = ten(s)
        Dim t1 = ten(t)
        Dim v1 = ten(v)
        TextBox2.Text = (s1 + "laks" + t1 + "thousend" + u + "hundread" + v1)
    End If
End Function
Function onecrore(z As Integer) As String
    Dim arr As Array = TextBox1.Text.ToArray
    If (z >= 10000000 & z <= 99999999) Then
        Dim a = arr(0)
        Dim b = arr(1)
        Dim c = arr(2)
        Dim d = arr(3)
        Dim e = arr(4)
        Dim f = arr(5)
        Dim g = arr(6)
        Dim h = arr(7)
        Dim s = no(a.ToString)
        Dim t = (b) & (c)
        Dim u = (d) & (e)
        Dim v = no(f.ToString)
        Dim w = (g) & (h)
        Dim t1 = ten(t)
        Dim u1 = ten(u)
        Dim w1 = ten(w)
        TextBox2.Text = (s + "crore" + t1 + "laks" + u1 + "thousend" + v + "hundread" + w1)
    End If
End Function
Function tencrore(z As Integer) As String
    Dim arr As Array = TextBox1.Text.ToArray
    If (z >= 100000000 & z <= 999999999) Then
        Dim a = arr(0)
        Dim b = arr(1)
        Dim c = arr(2)
        Dim d = arr(3)
        Dim e = arr(4)
        Dim f = arr(5)
        Dim g = arr(6)
        Dim h = arr(7)
        Dim i = arr(8)
        Dim s = (a) & (b)
        Dim t = (c) & (d)
        Dim u = (e) & (f)
        Dim v = no(g.ToString)
        Dim w = (h) & (i)
        Dim s1 = ten(s)
        Dim t1 = ten(t)
        Dim u1 = ten(u)
        Dim w1 = ten(w)
        TextBox2.Text = (s1 + "crore" + t1 + "laks" + u1 + "thousend" + v + "hundread" + w1)
    End If
End Function
Function main(z As Integer) As String
    If (z >= 0) Then
        Dim e = zero(z)
    ElseIf (z >= 1 & z <= 19) Then
        Dim a = fir(z)
    ElseIf (z <= 99) Then
        Dim b = two(z)
    ElseIf (z <= 999) Then
        Dim c = hun(z)
    ElseIf (z <= 9999) Then
        Dim d = thousen(z)
    ElseIf (z <= 99999) Then
        Dim d = tenthou(z)
    ElseIf (z <= 999999) Then
        Dim d = onelaks(z)
    ElseIf (z <= 9999999) Then
        Dim d = tenlaks(z)
    ElseIf (z <= 99999999) Then
        Dim d = onecrore(z)
    ElseIf (z <= 999999999) Then
        Dim d = tencrore(z)
    End If

End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim z = TextBox1.Text
    Dim g = main(z)
    End Sub
End Class
最新问题
© www.soinside.com 2019 - 2024. All rights reserved.