Re: Converting Numeric Amounts to Written Amounts

MmM.net</

13-Nov-06 3:10

MmM.net</

13-Nov-06 3:10

Try this Code ,its Tested in Many Appications i made
, its up to 100 Milliar

Option Strict Off<br />
Option Explicit On <br />
Imports VB = Microsoft.VisualBasic<br />
Public Class ConvertNo2Text<br />
    Private firstarry(2, 9) As Object<br />
    Private firstar1(2, 2) As Object<br />
    Private secondarry(2, 9) As Object<br />
    Private thirdarry(9) As Object<br />
    Private num_type As Short<br />
<br />
    Sub New(ByVal isArabic As Boolean)<br />
        Dim ArabicNumber As Object<br />
        Dim txt As Object<br />
        num_type = 1<br />
        txt = ""<br />
        ArabicNumber = ""<br />
        If isArabic Then<br />
            NewArabic()<br />
        Else<br />
            NewEnglish()<br />
        End If<br />
<br />
<br />
    End Sub<br />
<br />
    Private Sub NewArabic()<br />
        firstarry(1, 1) = "واحد "<br />
        firstarry(1, 2) = "اثنان "<br />
        firstarry(1, 3) = "ثلاثة "<br />
        firstarry(1, 4) = "أربعة "<br />
        firstarry(1, 5) = "خمسة "<br />
        firstarry(1, 6) = "ستة "<br />
        firstarry(1, 7) = "سبعة "<br />
        firstarry(1, 8) = "ثمانية "<br />
        firstarry(1, 9) = "تسعة "<br />
<br />
        firstarry(2, 1) = "واحدة"<br />
        firstarry(2, 2) = "اثنتان"<br />
        firstarry(2, 3) = "ثلاث"<br />
        firstarry(2, 4) = "أربع"<br />
        firstarry(2, 5) = "خمس"<br />
        firstarry(2, 6) = "ست"<br />
        firstarry(2, 7) = "سبع"<br />
        firstarry(2, 8) = "ثمان"<br />
        firstarry(2, 9) = "تسع"<br />
        firstar1(1, 1) = "أحد "<br />
        firstar1(1, 2) = "اثنا "<br />
        firstar1(2, 1) = "إحدى "<br />
        firstar1(2, 2) = "إثنتا "<br />
<br />
        secondarry(1, 1) = "عشرة"<br />
        secondarry(1, 2) = "عشرون"<br />
        secondarry(1, 3) = "ثلاثون"<br />
        secondarry(1, 4) = "أربعون"<br />
        secondarry(1, 5) = "خمسون"<br />
        secondarry(1, 6) = "ستون"<br />
        secondarry(1, 7) = "سبعون"<br />
        secondarry(1, 8) = "ثمانون"<br />
        secondarry(1, 9) = "تسعون"<br />
<br />
        secondarry(2, 1) = "عشر"<br />
        secondarry(2, 2) = "عشرون"<br />
        secondarry(2, 3) = "ثلاثون"<br />
        secondarry(2, 4) = "أربعون"<br />
        secondarry(2, 5) = "خمسون"<br />
        secondarry(2, 6) = "ستون"<br />
        secondarry(2, 7) = "سبعون"<br />
        secondarry(2, 8) = "ثمانون"<br />
        secondarry(2, 9) = "تسعون"<br />
<br />
        thirdarry(1) = "مائة "<br />
        thirdarry(2) = "مائتان "<br />
        thirdarry(3) = "ثلاثمائة "<br />
        thirdarry(4) = "أربعمائة "<br />
        thirdarry(5) = "خمسمائة "<br />
        thirdarry(6) = "ستمائة "<br />
        thirdarry(7) = "سبعمائة "<br />
        thirdarry(8) = "ثمانمائة "<br />
        thirdarry(9) = "تسعمائة "<br />
    End Sub<br />
<br />
    Private Sub NewEnglish()<br />
        firstarry(1, 1) = "One "<br />
        firstarry(1, 2) = "Two "<br />
        firstarry(1, 3) = "Three "<br />
        firstarry(1, 4) = "Four "<br />
        firstarry(1, 5) = "Five "<br />
        firstarry(1, 6) = "Six "<br />
        firstarry(1, 7) = "Seven "<br />
        firstarry(1, 8) = "Eight "<br />
        firstarry(1, 9) = "Nine "<br />
<br />
        firstarry(2, 1) = "one"<br />
        firstarry(2, 2) = "two"<br />
        firstarry(2, 3) = "three"<br />
        firstarry(2, 4) = "four"<br />
        firstarry(2, 5) = "five"<br />
        firstarry(2, 6) = "six"<br />
        firstarry(2, 7) = "seven"<br />
        firstarry(2, 8) = "eight"<br />
        firstarry(2, 9) = "nine"<br />
        firstar1(1, 1) = "one "<br />
        firstar1(1, 2) = "two "<br />
        firstar1(2, 1) = "one "<br />
        firstar1(2, 2) = "two "<br />
<br />
        secondarry(1, 1) = "Ten"<br />
        secondarry(1, 2) = "Twenty"<br />
        secondarry(1, 3) = "Thirty"<br />
        secondarry(1, 4) = "Forty"<br />
        secondarry(1, 5) = "Fifty"<br />
        secondarry(1, 6) = "Sixty"<br />
        secondarry(1, 7) = "Seventy"<br />
        secondarry(1, 8) = "Eighty"<br />
        secondarry(1, 9) = "Ninety"<br />
<br />
        secondarry(2, 1) = "Ten"<br />
        secondarry(2, 2) = "Twenty"<br />
        secondarry(2, 3) = "Thirty"<br />
        secondarry(2, 4) = "Forty"<br />
        secondarry(2, 5) = "Fifty"<br />
        secondarry(2, 6) = "Sixty"<br />
        secondarry(2, 7) = "Seventy"<br />
        secondarry(2, 8) = "Eighty"<br />
        secondarry(2, 9) = "Ninety"<br />
<br />
        thirdarry(1) = "One Hundred "<br />
        thirdarry(2) = "Tow Hundred "<br />
        thirdarry(3) = "Three Hundred "<br />
        thirdarry(4) = "Four Hundred "<br />
        thirdarry(5) = "Five Hundred "<br />
        thirdarry(6) = "Six Hundred "<br />
        thirdarry(7) = "Seven Hundred "<br />
        thirdarry(8) = "Eight Hundred "<br />
        thirdarry(9) = "Nine Hundred "<br />
    End Sub<br />
<br />
    Private Function get_number(ByRef ns As Object, ByRef num_type As Object, ByRef power As Object) As Object<br />
        Dim getno As Object<br />
        Dim tms As Object<br />
        Dim i As Object<br />
        Dim x As Object<br />
        Dim inv_type As Object<br />
        Dim lngth As Object<br />
        lngth = 0<br />
        inv_type = 2<br />
        Dim indx(3) As Object<br />
        Dim tmparray(3) As Object<br />
        For x = 1 To 3<br />
            indx(i) = 0<br />
            tmparray(i) = ""<br />
        Next x<br />
        tms = ""<br />
        getno = ""<br />
        lngth = Len(ns)<br />
        indx(1) = Val(Mid(ns, lngth, 1))<br />
        If indx(1) > 0 Then<br />
            tmparray(1) = firstarry(num_type, indx(1))<br />
        End If<br />
        lngth = lngth - 1<br />
        If lngth > 0 Then<br />
            indx(2) = Val(Mid(ns, lngth, 1))<br />
            If tmparray(1) > "" Then<br />
                If indx(2) > 0 Then<br />
                    tmparray(2) = secondarry(inv_type, indx(2))<br />
                End If<br />
            Else<br />
                If indx(2) > 0 Then<br />
                    tmparray(2) = secondarry(num_type, indx(2))<br />
                End If<br />
            End If<br />
<br />
            If indx(2) > 1 Then<br />
                tmparray(1) = tmparray(1) & "و"<br />
            ElseIf indx(1) = 1 And indx(2) = 1 Then<br />
                tmparray(1) = firstar1(num_type, 1)<br />
            ElseIf indx(1) = 2 And indx(2) = 1 Then<br />
                tmparray(1) = firstar1(num_type, 2)<br />
            End If<br />
<br />
            lngth = lngth - 1<br />
<br />
            If lngth > 0 Then<br />
                indx(3) = Val(Mid(ns, lngth, 1))<br />
                If indx(3) > 0 Then<br />
                    tmparray(3) = thirdarry(indx(3))<br />
                End If<br />
                If (indx(3) > 0 And tmparray(1) > "") Or tmparray(2) > "" Then<br />
                    tmparray(3) = tmparray(3) & "و"<br />
                End If<br />
            End If<br />
        End If<br />
<br />
        Select Case power<br />
            Case 0<br />
                tms = tmparray(3) & tmparray(1) & tmparray(2)<br />
                If tmparray(1) = "واحد " And tmparray(2) = "" And tmparray(3) = "" Then<br />
                    getno = "فلس واحد"<br />
                ElseIf tmparray(1) = "واحد " And tmparray(2) = "" And tmparray(3) > "" Then<br />
                    getno = tmparray(3) & "فلس واحد"<br />
                ElseIf tmparray(1) = "اثنان " And tmparray(2) = "" And tmparray(3) = "" Then<br />
                    getno = "فلسان"<br />
                ElseIf tmparray(1) = "اثنان " And tmparray(2) = "" And tmparray(3) > "" Then<br />
                    getno = tmparray(3) & "فلسان"<br />
                ElseIf tmparray(1) > "" And tmparray(2) = "" And tmparray(3) = "" Then<br />
                    getno = tms & " فلسات"<br />
                Else<br />
                    getno = tms & " فلس"<br />
                End If<br />
            Case 1<br />
                getno = tmparray(3) & tmparray(1) & tmparray(2)<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " دينار واحد"<br />
                ElseIf indx(1) = 1 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & " دينار واحد"<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " ديناران"<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & " ديناران"<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = getno & " دنانير"<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = getno & " دنانير"<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = getno & " دنانير"<br />
                Else<br />
                    getno = getno & " دينار"<br />
                End If<br />
<br />
            Case 2<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " ألف "<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " ألفان "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(1) & " آلاف "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " آلاف "<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " آلاف "<br />
                ElseIf indx(1) = 0 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2)<br />
                Else<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " ألف "<br />
                End If<br />
            Case 3<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " مليون "<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " مليونان "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(1) & " ملايين "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " ملايين "<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " ملايين "<br />
                ElseIf indx(1) = 0 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2)<br />
                Else<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " مليون "<br />
                End If<br />
            Case 4<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " مليار "<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " ملياران "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(1) & " مليارات "<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " مليارات "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " مليارات "<br />
                Else<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " مليار "<br />
                End If<br />
        End Select<br />
        get_number = getno<br />
    End Function<br />
<br />
    Public Function GetText(ByVal TextNO As String, ByVal strONE As String, ByVal strTwo As String) As String<br />
<br />
        Dim txt As Object<br />
        Dim i As Object<br />
        Dim templength As Object<br />
        Dim afterpoint As Object<br />
        Dim pos As Object<br />
        Dim length As Object<br />
        Dim nostring As Object<br />
        If Val(TextNO) = 0 Then<br />
            Return "صفر"<br />
            ' Exit Function<br />
        End If<br />
        nostring = Trim(TextNO)<br />
        length = Len(nostring)<br />
        pos = InStr(nostring, ".")<br />
        afterpoint = ""<br />
        If pos > 0 Then<br />
            afterpoint = VB.Right(nostring, length - pos)<br />
            nostring = VB.Left(nostring, pos - 1)<br />
            length = Len(nostring)<br />
        Else<br />
            pos = InStr(nostring, ",")<br />
        End If<br />
        templength = length<br />
        Dim parts(4) As Object<br />
        'parts = ""<br />
        Dim partstr(10) As Object<br />
        parts(1) = nostring<br />
        i = 0<br />
        Do While templength >= 3<br />
            templength = templength - 3<br />
            i = i + 1<br />
            parts(i) = VB.Right(nostring, 3)<br />
            nostring = VB.Left(nostring, templength)<br />
        Loop<br />
        parts(i + 1) = nostring<br />
        For i = 1 To 4<br />
            If parts(i) > "" Then<br />
                partstr(i) = get_number(parts(i), num_type, i)<br />
            Else<br />
                Exit For<br />
            End If<br />
        Next i<br />
        For i = 4 To 1 Step -1<br />
            If partstr(i) > "" Then<br />
                If i > 1 Then<br />
                    If partstr(i - 1) = "واحد" Then<br />
                        partstr(i - 1) = "و" & partstr(i - 1)<br />
                    End If<br />
                    If partstr(i - 1) > "" And partstr(i - 1) <> " دينار" And Mid(partstr(i - 1), 1, 1) <> "و" Then<br />
                        txt = txt & " " & partstr(i) & "و"<br />
                    Else<br />
                        txt = txt & " " & partstr(i) & " "<br />
                    End If<br />
                Else<br />
                    If (partstr(i + 1) = "" Or partstr(i + 2) = "") And txt > "" And (partstr(i) = " دينار واحد" Or partstr(i) = " ديناران") Then<br />
                        txt = txt & "و" & partstr(i)<br />
                    ElseIf (partstr(i + 1) = "" Or partstr(i + 2) = "") And txt > "" And partstr(i) <> " دينار" Then<br />
                        txt = txt & "و" & partstr(i)<br />
                    Else<br />
                        txt = txt & " " & partstr(i) & " "<br />
                    End If<br />
                End If<br />
            End If<br />
        Next i<br />
        If Val(afterpoint) > 0 Then<br />
            txt = txt & " و" & get_number(afterpoint, num_type, 0)<br />
        End If<br />
        txt = Replace(txt, "و ", "و")<br />
        txt = Replace(txt, "و و", "و ")<br />
        txt = Replace(txt, "وو", "و")<br />
        If InStr(txt, "واحد") > 0 And VB.Right(Trim(txt), 4) <> "واحد" Then<br />
            txt = Replace(txt, "واحد", "وواحد")<br />
        End If<br />
        txt = Replace(txt, "   ", " ")<br />
        txt = Replace(txt, "  ", " ")<br />
        txt = Trim(txt)<br />
        If VB.Right(TextNO, 1) = "0" And InStr(nostring, ".") = 0 And InStr(txt, "ودينار") > 0 Then<br />
            txt = Replace(txt, "ودينار", "دينار")<br />
        End If<br />
        If VB.Right(TextNO, 1) = "0" And InStr(nostring, ".") = 0 And InStr(txt, "و دينار") > 0 Then<br />
            txt = Replace(txt, "و دينار", "دينار")<br />
        End If<br />
        txt = Replace(txt, "دينار", strONE)<br />
<br />
        txt = Replace(txt, "دنانير", strTwo)<br />
<br />
<br />
        If Mid(txt, 1, 1) = "و" Then<br />
            Return Mid(txt, 2)<br />
        Else<br />
            Return Trim(txt)<br />
        End If<br />
<br />
    End Function<br />
<br />
    Private Function get_numberEnglish(ByRef ns As Object, ByRef num_type As Object, ByRef power As Object) As Object<br />
        Dim getno As Object<br />
        Dim tms As Object<br />
        Dim i As Object<br />
        Dim x As Object<br />
        Dim inv_type As Object<br />
        Dim lngth As Object<br />
        lngth = 0<br />
        inv_type = 2<br />
        Dim indx(3) As Object<br />
        Dim tmparray(3) As Object<br />
        For x = 1 To 3<br />
            indx(i) = 0<br />
            tmparray(i) = ""<br />
        Next x<br />
        tms = ""<br />
        getno = ""<br />
        lngth = Len(ns)<br />
        indx(1) = Val(Mid(ns, lngth, 1))<br />
        If indx(1) > 0 Then<br />
            tmparray(1) = firstarry(num_type, indx(1))<br />
        End If<br />
        lngth = lngth - 1<br />
        If lngth > 0 Then<br />
            indx(2) = Val(Mid(ns, lngth, 1))<br />
            If tmparray(1) > "" Then<br />
                If indx(2) > 0 Then<br />
                    tmparray(2) = secondarry(inv_type, indx(2))<br />
                End If<br />
            Else<br />
                If indx(2) > 0 Then<br />
                    tmparray(2) = secondarry(num_type, indx(2))<br />
                End If<br />
            End If<br />
<br />
            If indx(2) > 1 Then<br />
                tmparray(1) = tmparray(1) & "And"<br />
            ElseIf indx(1) = 1 And indx(2) = 1 Then<br />
                tmparray(1) = firstar1(num_type, 1)<br />
            ElseIf indx(1) = 2 And indx(2) = 1 Then<br />
                tmparray(1) = firstar1(num_type, 2)<br />
            End If<br />
<br />
            lngth = lngth - 1<br />
<br />
            If lngth > 0 Then<br />
                indx(3) = Val(Mid(ns, lngth, 1))<br />
                If indx(3) > 0 Then<br />
                    tmparray(3) = thirdarry(indx(3))<br />
                End If<br />
                If (indx(3) > 0 And tmparray(1) > "") Or tmparray(2) > "" Then<br />
                    tmparray(3) = tmparray(3) & "And"<br />
                End If<br />
            End If<br />
        End If<br />
<br />
        Select Case power<br />
            Case 0<br />
                tms = tmparray(3) & tmparray(1) & tmparray(2)<br />
                If tmparray(1) = "One " And tmparray(2) = "" And tmparray(3) = "" Then<br />
                    getno = "One Pence"<br />
                ElseIf tmparray(1) = "One " And tmparray(2) = "" And tmparray(3) > "" Then<br />
                    getno = tmparray(3) & "One Pence"<br />
                ElseIf tmparray(1) = "Toe " And tmparray(2) = "" And tmparray(3) = "" Then<br />
                    getno = "Two Pence"<br />
                ElseIf tmparray(1) = "Two " And tmparray(2) = "" And tmparray(3) > "" Then<br />
                    getno = tmparray(3) & "Tow Pence"<br />
                ElseIf tmparray(1) > "" And tmparray(2) = "" And tmparray(3) = "" Then<br />
                    getno = tms & " Pences"<br />
                Else<br />
                    getno = tms & " Pence"<br />
                End If<br />
            Case 1<br />
                getno = tmparray(3) & tmparray(1) & tmparray(2)<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " One JD"<br />
                ElseIf indx(1) = 1 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & " One JD"<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Two JD"<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & " Two JD"<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = getno & " JD"<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = getno & " JD"<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = getno & " JD"<br />
                Else<br />
                    getno = getno & " JD"<br />
                End If<br />
<br />
            Case 2<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Thousand "<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Two Thousand "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(1) & " Thousands "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Thousands "<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Thousands "<br />
                ElseIf indx(1) = 0 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2)<br />
                Else<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Thousand "<br />
                End If<br />
            Case 3<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Million "<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Two Million "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(1) & " ملايين "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Millions "<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Millions "<br />
                ElseIf indx(1) = 0 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2)<br />
                Else<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Million "<br />
                End If<br />
            Case 4<br />
                If indx(1) = 1 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Millard "<br />
                ElseIf indx(1) = 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = " Two Millard "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) = 0 Then<br />
                    getno = tmparray(1) & " مليارات "<br />
                ElseIf indx(1) = 0 And indx(2) = 1 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Millards "<br />
                ElseIf indx(1) > 2 And indx(2) = 0 And indx(3) > 0 Then<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Millards "<br />
                Else<br />
                    getno = tmparray(3) & tmparray(1) & tmparray(2) & " Millard "<br />
                End If<br />
        End Select<br />
        get_numberEnglish = getno<br />
    End Function<br />
<br />
    Public Function GetTextEnglish(ByVal TextNO As String, ByVal strONE As String, ByVal strTwo As String) As String<br />
<br />
        Dim txt As Object<br />
        Dim i As Object<br />
        Dim templength As Object<br />
        Dim afterpoint As Object<br />
        Dim pos As Object<br />
        Dim length As Object<br />
        Dim nostring As Object<br />
        If Val(TextNO) = 0 Then<br />
            Return "Zero"<br />
            ' Exit Function<br />
        End If<br />
        nostring = Trim(TextNO)<br />
        length = Len(nostring)<br />
        pos = InStr(nostring, ".")<br />
        afterpoint = ""<br />
        If pos > 0 Then<br />
            afterpoint = VB.Right(nostring, length - pos)<br />
            nostring = VB.Left(nostring, pos - 1)<br />
            length = Len(nostring)<br />
        Else<br />
            pos = InStr(nostring, ",")<br />
        End If<br />
        templength = length<br />
        Dim parts(4) As Object<br />
        'parts = ""<br />
        Dim partstr(10) As Object<br />
        parts(1) = nostring<br />
        i = 0<br />
        Do While templength >= 3<br />
            templength = templength - 3<br />
            i = i + 1<br />
            parts(i) = VB.Right(nostring, 3)<br />
            nostring = VB.Left(nostring, templength)<br />
        Loop<br />
        parts(i + 1) = nostring<br />
        For i = 1 To 4<br />
            If parts(i) > "" Then<br />
                partstr(i) = get_numberEnglish(parts(i), num_type, i)<br />
            Else<br />
                Exit For<br />
            End If<br />
        Next i<br />
        For i = 4 To 1 Step -1<br />
            If partstr(i) > "" Then<br />
                If i > 1 Then<br />
                    If partstr(i - 1) = "One" Then<br />
                        partstr(i - 1) = "And" & partstr(i - 1)<br />
                    End If<br />
                    If partstr(i - 1) > "" And partstr(i - 1) <> " JD" And Mid(partstr(i - 1), 1, 1) <> "And" Then<br />
                        txt = txt & " " & partstr(i) & "And"<br />
                    Else<br />
                        txt = txt & " " & partstr(i) & " "<br />
                    End If<br />
                Else<br />
                    If (partstr(i + 1) = "" Or partstr(i + 2) = "") And txt > "" And (partstr(i) = " One JD" Or partstr(i) = " Two JD") Then<br />
                        txt = txt & "And" & partstr(i)<br />
                    ElseIf (partstr(i + 1) = "" Or partstr(i + 2) = "") And txt > "" And partstr(i) <> " JD" Then<br />
                        txt = txt & "And" & partstr(i)<br />
                    Else<br />
                        txt = txt & " " & partstr(i) & " "<br />
                    End If<br />
                End If<br />
            End If<br />
        Next i<br />
        If Val(afterpoint) > 0 Then<br />
            txt = txt & " And" & get_numberEnglish(afterpoint, num_type, 0)<br />
        End If<br />
        txt = Replace(txt, "And ", "And")<br />
        txt = Replace(txt, "And And", "And ")<br />
        txt = Replace(txt, "AndAnd", "And")<br />
        If InStr(txt, "One") > 0 And VB.Right(Trim(txt), 4) <> "One" Then<br />
            txt = Replace(txt, "One", "And One")<br />
        End If<br />
        txt = Replace(txt, "   ", " ")<br />
        txt = Replace(txt, "  ", " ")<br />
        txt = Trim(txt)<br />
        If VB.Right(TextNO, 1) = "0" And InStr(nostring, ".") = 0 And InStr(txt, "And JD") > 0 Then<br />
            txt = Replace(txt, "And JD", "JD")<br />
        End If<br />
        If VB.Right(TextNO, 1) = "0" And InStr(nostring, ".") = 0 And InStr(txt, "And JD") > 0 Then<br />
            txt = Replace(txt, "JD", "JD")<br />
        End If<br />
        txt = Replace(txt, "JD", strONE)<br />
<br />
        txt = Replace(txt, "JD", strTwo)<br />
<br />
<br />
        If Mid(txt, 1, 1) = "And" Then<br />
            Return Mid(txt, 2)<br />
        Else<br />
            Return Trim(txt)<br />
        End If<br />
<br />
    End Function<br />
<br />
End Class

Mohamad A. Flefel
mflefel@hotmail.com
+962 79 5963865
C#.net & VB.net Developer

Re: Converting Numeric Amounts to Written Amounts

Tamimi - Code13-Nov-06 3:19

Tamimi - Code

13-Nov-06 3:19

he should pay for this code man
he is too much lucky.

plz tell wasem to shut up

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: Converting Numeric Amounts to Written Amounts

MmM.net</

13-Nov-06 3:30

MmM.net</

13-Nov-06 3:30

Tamimi - Code wrote:
he should pay for this code man

MAN THIS IS FREE SITE ,NOT FOR PAY , WHEN U SIGN UP FOR THIS SITE , THEY DOESN'T ASK U FOR MONEY FEES,AND NO ANY FEATURE IS FOR PAY ,
><<big>FREE SITE , FREE CODE</big>

Tamimi - Code wrote:
he is too much lucky.

U TOO , COZ THEY LET U TO SIGN UP FREE

Mohamad A. Flefel
mflefel@hotmail.com
+962 79 5963865
C#.net & VB.net Developer

Re: Converting Numeric Amounts to Written Amounts

abd_o_d13-Nov-06 3:30

abd_o_d

13-Nov-06 3:30

Thank u man, It is useful Blush | :O

Re: Converting Numeric Amounts to Written Amounts

Tamimi - Code13-Nov-06 3:38

Tamimi - Code

13-Nov-06 3:38

i told you . you are too much lucky

do you know how to play trix ??
nice to met you

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: Converting Numeric Amounts to Written Amounts

MmM.net</

13-Nov-06 3:48

MmM.net</

13-Nov-06 3:48

WAT R U SAYING, WAT IS TRIX????? , I DONT KNOW THAT PIECE OF SHET ,
I JUST LIKE TO WORKING AND CREATING NEW CODES THAT HELPING PROGRAMMERS LIKE OUR FRIEND ,NOT JOKING ON THEM,
AND TELL ME WAT IS

Tamimi - Code wrote:
do you know how to play trix ??

??????
DO U MEAN TETIX ?
OR MATRIX ?
OR XXXXTRIX ??
I DON'T KNOW ABOUT U,
I WISH THAT THE WEB MASTER HERE MAY BLOCK U AND DELETE UR USER ,
U ARE NO GOOD FOR PROGRAMMER
BYE....

Mohamad A. Flefel
mflefel@hotmail.com
+962 79 5963865
C#.net & VB.net Developer

Re: Converting Numeric Amounts to Written Amounts

J4amieC13-Nov-06 3:33

J4amieC

13-Nov-06 3:33

Welldone, you just did this guy's homework for him. Now he learns nothing.

---

How to get answers to your questions[^]

Re: Converting Numeric Amounts to Written Amounts

MmM.net</

13-Nov-06 3:36

MmM.net</

13-Nov-06 3:36

HOW DO U KNOW THAT THIS IS A HOMEWORK ????????????
MAY THAT GUY WAKING A BIG BUISNESS APPLICATION AND HE WANTS TO USE THIS FEATURE,,,,,

><THINK TWICE BEFORE GO ATTACK

Mohamad A. Flefel
mflefel@hotmail.com
+962 79 5963865
C#.net & VB.net Developer

Re: Converting Numeric Amounts to Written Amounts

abd_o_d13-Nov-06 3:53

abd_o_d

13-Nov-06 3:53

U r right, I am dealing with a reports engine that is responsible for Credit and debit notes that is issued by a financial system...Anyway, thank u for ur help

Re: Converting Numeric Amounts to Written Amounts

J4amieC13-Nov-06 4:19

J4amieC

13-Nov-06 4:19

mflefel wrote:
HOW DO U KNOW THAT THIS IS A HOMEWOR

I don't, but the FACT is that this is a VERY common homework assignment, and just providing the poster with a full working solution when he has posted no code of his own and shown no attempt to answer the question himself teaches nothing. This site is as much about teaching people the skills necessary to be a programmer as it is about providing answers.

I also thank you for NOT SHOUTING!!!11

---

How to get answers to your questions[^]

Re: Converting Numeric Amounts to Written Amounts

Waseem_Kanafani13-Nov-06 3:43

Waseem_Kanafani

13-Nov-06 3:43

man i think he is helping .. for him becasue this place for answering and asking qestion not for playing like kids please go out of here if you think yourself better than him "I think you can't understand his qestion from the first homeworker"

Dead | X|

Think Twice Before Give answers.

Re: Converting Numeric Amounts to Written Amounts

Tamimi - Code13-Nov-06 3:51

Tamimi - Code

13-Nov-06 3:51

Waseem_Kanafani wrote:
please go out of here

man click the link and read some of the man posts.
respect your self and play nice
http://www.codeproject.com/script/profile/whos_who.asp?id=565680[^]

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: Converting Numeric Amounts to Written Amounts

J4amieC13-Nov-06 5:49

J4amieC

13-Nov-06 5:49

Tamimi - Code wrote:
man click the link and read some of the man posts.

Im confused...why did you link to a list of my posts?

---

How to get answers to your questions[^]

Re: Converting Numeric Amounts to Written Amounts

Tamimi - Code13-Nov-06 19:26

Tamimi - Code

13-Nov-06 19:26

because your posts are always helpful and trusted

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: Converting Numeric Amounts to Written Amounts

J4amieC13-Nov-06 23:35

J4amieC

13-Nov-06 23:35

Thankyou...appreciated.

---

How to get answers to your questions[^]

Re: Converting Numeric Amounts to Written Amounts

Tamimi - Code13-Nov-06 3:45

Tamimi - Code

13-Nov-06 3:45

J4amieC wrote:
Welldone, you just did this guy's homework for him. Now he learns nothing.

bang bang, you shut him down
Laugh | :laugh:

When you get mad...THINK twice that the only advice
Tamimi - Code

Re: Converting Numeric Amounts to Written Amounts

MmM.net</

13-Nov-06 3:50

MmM.net</

13-Nov-06 3:50

HOW DO U KNOW THAT THIS IS A HOMEWORK ????????????
MAY THAT GUY WAKING A BIG BUISNESS APPLICATION AND HE WANTS TO USE THIS FEATURE,,,,,

><think twice="" before="" go="" attack=""

=""

<div="" class="ForumSig">Mohamad A. Flefel
mflefel@hotmail.com
+962 79 5963865
C#.net & VB.net Developer

Re: Converting Numeric Amounts to Written Amounts

ed^nrgc13-Nov-06 5:06

ed^nrgc

13-Nov-06 5:06

Wow, I guess resource file hasn't come to mind to make this easier.

TopMost property (on-top) without activate form.

ranzask13-Nov-06 0:48

ranzask

13-Nov-06 0:48

Hi all

I'm trying to make something like the online notification from MSN, so i want the pop-up form not to recieve any focus at all.

what i have done so far:
1. overrided the property ShowWithoutActivation to return true so that when the form is displayed, the form is not activated!!(and i see that activated event do not occur)

protected override bool ShowWithoutActivation
{
get
{
return true;
}
}
2. i make sure that the MsgForm.TopMost=false because the topmost feature always activate the form which is bad. because then , after i click first time on the notifiation form it starts to get the focus when i pop-up it.

the problem: if i dont use the TopMost, its working fine but.. i need it to be on top of programs otherwise it will not be shown.

Please help me.
Thanks.

R.Z

Re: TopMost property (on-top) without activate form.

Anthony Mushrow13-Nov-06 1:41

Anthony Mushrow

13-Nov-06 1:41

I can't think of what you could do... why do you have to have it so it doesn't get focus?

Re: TopMost property (on-top) without activate form.

ranzask13-Nov-06 1:47

ranzask

13-Nov-06 1:47

Im trying to do something like MSN's user online notification.

the small form never get the focus, but it always on-top.

so it is possible.

R.Z

Re: TopMost property (on-top) without activate form.

Eduard Keilholz13-Nov-06 2:17

Eduard Keilholz

13-Nov-06 2:17

There are several ways to accomplish that, i've created a few apps using this feature (it gets boring though Wink | ;-)

) and most were built from an example found on codeproject. I say, look through the articles, those guys spend a lot of time writing them, and are worth reading!

- - - --[ i love it when a plan comes together ]-- - - -

Is there a way to do a bulk data update to sql server?

Lior S13-Nov-06 0:13

Lior S

13-Nov-06 0:13

I'm looking for a way to update bulk data from DataTable to a SQL server since the updating procedure row at the time takes a lot of time in a large scale database as the one i work with.

Re: Is there a way to do a bulk data update to sql server?

saqib8213-Nov-06 2:12

saqib82

13-Nov-06 2:12

you can use the concepts of OpenXML for bulk updates in sql server. this can minimize ur updates from a number of rows to be updated to 1.

regards

sAqIb

"Our scientific power has outrun our spiritual power. We have guided missiles and misguided men."
Dr. Martin Luther King Jr.

how to check selected node is parent or child ?

Exelioindia13-Nov-06 0:11

Exelioindia

13-Nov-06 0:11

Hi all,

Can any one suggest mw how to check selected node is parent or child for visualc# treeview control?

Thanks in advance

Know is Drop, Unknown is Ocean

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.