Page 1 of 2 12 LastLast
Results 1 to 12 of 16

Thread: Convert Numbers into WORDS

  1. #1
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default Convert Numbers into WORDS


    Name:  1.jpg
Views: 98
Size:  109.8 KB
    Name:  2.jpg
Views: 96
Size:  54.2 KB
    Name:  3.jpg
Views: 98
Size:  79.1 KB
    Name:  4.jpg
Views: 97
Size:  55.4 KB
    Name:  5.jpg
Views: 97
Size:  51.9 KB

    'IT Dunya.com, this code work only Change Figure into Words
    Function SpellNumber(amt As Variant) As Variant
    Dim FIGURE As Variant
    Dim LENFIG As Integer
    Dim i As Integer
    Dim WORDs(19) As String
    Dim tens(9) As String
    WORDs(1) = "One"
    WORDs(2) = "Two"
    WORDs(3) = "Three"
    WORDs(4) = "Four"
    WORDs(5) = "Five"
    WORDs(6) = "Six"
    WORDs(7) = "Seven"
    WORDs(8) = "Eight"
    WORDs(9) = "Nine"
    WORDs(10) = "Ten"
    WORDs(11) = "Eleven"
    WORDs(12) = "Twelve"
    WORDs(13) = "Thirteen"
    WORDs(14) = "Fourteen"
    WORDs(15) = "Fifteen"
    WORDs(16) = "Sixteen"
    WORDs(17) = "Seventeen"
    WORDs(18) = "Eighteen"
    WORDs(19) = "Nineteen"
    tens(2) = "Twenty"
    tens(3) = "Thirty"
    tens(4) = "Fourty"
    tens(5) = "Fifty"
    tens(6) = "Sixty"
    tens(7) = "Seventy"
    tens(8) = "Eighty"
    tens(9) = "Ninety"
    FIGURE = amt
    FIGURE = Format(FIGURE, "FIXED")
    FIGLEN = Len(FIGURE)
    If FIGLEN < 12 Then
    FIGURE = Space(12 - FIGLEN) & FIGURE
    End If
    If Val(Left(FIGURE, 9)) > 1 Then
    SpellNumber = " "
    SpellNumber = " "
    ElseIf Val(Left(FIGURE, 9)) = 1 Then
    SpellNumber = " "
    End If
    For i = 1 To 3
    If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then

    SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
    ElseIf Val(Left(FIGURE, 2)) > 19 Then
    SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
    SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
    End If
    If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
    SpellNumber = SpellNumber & " Crore "
    ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
    SpellNumber = SpellNumber & " Lakh "
    ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
    SpellNumber = SpellNumber & " Thousand "
    End If
    FIGURE = Mid(FIGURE, 3)
    Next i
    If Val(Left(FIGURE, 1)) > 0 Then
    SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
    End If
    FIGURE = Mid(FIGURE, 2)
    If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
    SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
    ElseIf Val(Left(FIGURE, 2)) > 19 Then
    SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
    SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
    End If
    FIGURE = Mid(FIGURE, 4)
    If Val(FIGURE) > 0 Then
    SpellNumber = SpellNumber & " Paise "
    If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
    SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
    ElseIf Val(Left(FIGURE, 2)) > 19 Then
    SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
    SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
    End If
    End If
    FIGURE = amt
    FIGURE = Format(FIGURE, "FIXED")
    If Val(FIGURE) > 0 Then
    SpellNumber = SpellNumber
    End If
    End Function

  2. #2
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    Name:  6.jpg
Views: 97
Size:  65.0 KB
    Name:  7.jpg
Views: 97
Size:  66.9 KB
    Name:  8.jpg
Views: 98
Size:  147.6 KB
    Name:  9.jpg
Views: 96
Size:  30.1 KB
    Name:  10.jpg
Views: 97
Size:  39.7 KB


    - - - Updated - - -

    Name:  11.jpg
Views: 97
Size:  68.5 KB

  3. #3
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    اس ساری گفتگو میں یہ بات تو رہ گئی تھی کہ آپ نے اس فائل کو کس فارمیٹ میں محفوظ کرنا ہے تو
    دیکھیے اسکرین شارٹ
    Name:  SAVE AS.jpg
Views: 97
Size:  16.8 KB

  4. #4
    Join Date
    26 Mar 2010
    Location
    Lahore
    Gender
    Male
    Posts
    10,601
    Threads
    2397
    Credits
    107,695
    Thanked
    1656

    Default

    وعلیکم السلام
    آج ہی اس تھریڈ کا وزٹ کیا ہے اور یقین کریں کہ دماغ تھک گیا ہے سمجھتے ہوئے۔
    ٹرائی کرنے کے لیے شروع کیا تو ہمیں ڈیولپر کا ٹیب ہی نہیں مل رہا تھا۔
    کافی سر کھپائی کے بعد میں نے دیکھا کہ وہ ٹیب تو پہلے سے ہی موجود تھا۔
    ہا ہا ہا ہا

  5. #5
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    Quote Shaheen Latif said: View Post
    وعلیکم السلام
    آج ہی اس تھریڈ کا وزٹ کیا ہے اور یقین کریں کہ دماغ تھک گیا ہے سمجھتے ہوئے۔
    ٹرائی کرنے کے لیے شروع کیا تو ہمیں ڈیولپر کا ٹیب ہی نہیں مل رہا تھا۔
    کافی سر کھپائی کے بعد میں نے دیکھا کہ وہ ٹیب تو پہلے سے ہی موجود تھا۔
    ہا ہا ہا ہا
    عام طور پر یہ ٹیب بائی ڈیفالٹ آف رکھا جاتا ہے
    کوئی کام آپ نے کیا ہوگا اس لئے اوپن ہو گیا ہوگا
    اس لئے سرکار پہلے ایک نظرڈال لینی تھی مینو آپشن پر خیر
    آگے
    کا کام کیا کہ نہیں؟ یقیناً کوڈ کو سمجھنا تو ایک عام بندے کے لئے نا ممکن ہے
    آپ نے بس کاپی پیسٹ کرنا ہے
    اور فائل کو محفوظ کرنا ہے بتائے ہوئے طریقے کے مطابق

    تھریڈ کو وزٹ کرنے اور ریپلائی دینے کا بہت شکریہ

  6. #6
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    آپ اس کام کو آگے ٹرائی کریں جہاں مشکل ہو ضرور آگاہ کیجیے گا
    ہم ہیں نا تو کیا غم ہے

  7. #7
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    اب آپ نے دیے گئے کوڈ سے ایک اسکرین والے اسٹیپ سے کام شروع کرنا ہے

  8. #8
    syar is offline Advance Member
    Last Online
    14th March 2024 @ 07:49 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    882
    Threads
    9
    Credits
    548
    Thanked
    340

    Default

    Great Sharing

  9. #9
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    Quote syar said: View Post
    Great Sharing
    اظہارِ پسندیدگی کا بہت شکریہ

  10. #10
    hussa's Avatar
    hussa is offline Senior Member+
    Last Online
    Yesterday @ 03:04 PM
    Join Date
    25 Oct 2011
    Age
    42
    Gender
    Male
    Posts
    322
    Threads
    38
    Credits
    486
    Thanked
    9

    Default

    بہت خوب

  11. #11
    Akhtar170 is offline Advance Member
    Last Online
    29th December 2023 @ 08:19 AM
    Join Date
    12 Oct 2013
    Age
    29
    Gender
    Male
    Posts
    1,029
    Threads
    92
    Credits
    318
    Thanked
    23

    Default

    Wow bro!!!

  12. #12
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,307
    Threads
    412
    Credits
    39,753
    Thanked
    1813

    Default

    Quote hussa said: View Post
    بہت خوب
    اظہارِ پسندیدگی کا بہت شکریہ

Page 1 of 2 12 LastLast

Similar Threads

  1. Excel !How To Convert RS into words
    By Adeel Anjum in forum Ask an Expert
    Replies: 5
    Last Post: 18th May 2013, 12:06 PM
  2. Solved LinK CONVERT IN Desired words. .
    By asif4796299 in forum Solved Problems (IT)
    Replies: 7
    Last Post: 13th April 2013, 06:02 PM
  3. Solved convert numbers into words in excel
    By naeemgees in forum Solved Problems (IT)
    Replies: 8
    Last Post: 27th April 2011, 07:07 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •