11,494,752 members (63,701 online)

# Convert Number to Word

, 19 Feb 2008 CPOL 115.7K 8.4K 32
 Rate this:
Convert any decimal number to word using vb.net

## Introduction

I have created this function for converting amount in Indian Rupees (INR). You can manipulate as you wish like decimal setting, Doller (any currency) Prefix.

## Background

I have coded this function as per client's requirement to print word format of Billed Amount.

## Using the code

This two dimensional array store the primary word convertion of number.

```     Function retWord(ByVal Num As Decimal) As String
'This two dimensional array store the primary word convertion of number.
retWord = ""
Dim ArrWordList(,) As Object = {{0, ""}, {1, "One"}, {2, "Two"}, {3, "Three"}, {4, "Four"}, _
{5, "Five"}, {6, "Six"}, {7, "Seven"}, {8, "Eight"}, {9, "Nine"}, _
{10, "Ten"}, {11, "Eleven"}, {12, "Twelve"}, {13, "Thirteen"}, {14, "Fourteen"}, _
{15, "Fifteen"}, {16, "Sixteen"}, {17, "Seventeen"}, {18, "Eighteen"}, {19, "Nineteen"}, _
{20, "Twenty"}, {30, "Thirty"}, {40, "Forty"}, {50, "Fifty"}, {60, "Sixty"}, _
{70, "Seventy"}, {80, "Eighty"}, {90, "Ninety"}, {100, "Hundred"}, {1000, "Thousand"}, _
{100000, "Lakh"}, {10000000, "Crore"}}

Dim i As Integer
For i = 0 To UBound(ArrWordList)
If Num = ArrWordList(i, 0) Then
retWord = ArrWordList(i, 1)
Exit For
End If
Next
Return retWord
End Function
```

## About the Author

Software Developer (Senior)
India
Pranav Patel
B.Sc, MCSD

I am serving my company as Sr. Software Engineer. I have more than 4 years of experience in Microsoft Technologies specially VB 6, VB.Net,C#,ASP.Net and MS SQL Server

## Comments and Discussions

 First PrevNext
 Worked Member 1112113630-Sep-14 8:16 Member 11121136 30-Sep-14 8:16
 THANKS A LOT Member 1111700928-Sep-14 23:32 Member 11117009 28-Sep-14 23:32
 number conversion Member 1102112918-Aug-14 22:05 Member 11021129 18-Aug-14 22:05
 number conversion using vb.net Member 1102112918-Aug-14 21:53 Member 11021129 18-Aug-14 21:53
 THANKS A LOT DEAR..... satishgurav18-Jul-14 19:21 satishgurav 18-Jul-14 19:21
 My vote of 3 Ashoka Pathirana21-May-14 19:38 Ashoka Pathirana 21-May-14 19:38
 thanks Ram A Singh14-Aug-13 7:50 Ram A Singh 14-Aug-13 7:50
 It never converts zeros JAYANTHIMURUGESAN26-Mar-13 15:33 JAYANTHIMURUGESAN 26-Mar-13 15:33
 Thanks taenel l pasaylo27-Jan-13 2:27 taenel l pasaylo 27-Jan-13 2:27
 Not perfect alifaris5-Nov-12 9:36 alifaris 5-Nov-12 9:36
 project rahul binaikia29-May-12 5:58 rahul binaikia 29-May-12 5:58
 Thanks !!! Member 340016411-May-12 16:17 Member 3400164 11-May-12 16:17
 My vote of 5 Jack_32123-Apr-12 0:38 Jack_321 23-Apr-12 0:38
 Thanks Member 850926513-Mar-12 20:09 Member 8509265 13-Mar-12 20:09
 My vote of 4 Md. Marufuzzaman2-Jan-12 20:22 Md. Marufuzzaman 2-Jan-12 20:22
 My vote of 5 Аslam Iqbal26-Dec-11 21:43 Аslam Iqbal 26-Dec-11 21:43
 Nice Work maruf2111-Dec-11 13:17 maruf21 11-Dec-11 13:17
 My vote of 1 Member 846869111-Dec-11 5:16 Member 8468691 11-Dec-11 5:16
 My vote of 1 divyanivas18-Aug-11 10:10 divyanivas 18-Aug-11 10:10
 How do increase to more than 999999999.99 Deepesh Krishnan29-Apr-11 20:50 Deepesh Krishnan 29-Apr-11 20:50
 My vote of 5 CodeDog13-Apr-11 5:58 CodeDog 13-Apr-11 5:58
 My vote of 1 yogeshd3918-Feb-11 2:23 yogeshd39 18-Feb-11 2:23
 Good Article but with alot of limitations Albert Dadze17-Dec-10 7:00 Albert Dadze 17-Dec-10 7:00
 My vote of 3 Ashwani2k12-Jul-10 9:14 Ashwani2k 12-Jul-10 9:14
 Usefull Work Vimal Upadhyay16-May-10 23:43 Vimal Upadhyay 16-May-10 23:43
 Last Visit: 31-Dec-99 19:00     Last Update: 29-May-15 1:10 Refresh 12 Next »

General    News    Suggestion    Question    Bug    Answer    Joke    Rant    Admin

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