How to convert number to word in vb.net ?

Question

convert number to digit like 125800 = One Lac Twenty Five Thousand Eight Hundred Only

Rafnas T P · Answer

hi ashish, I have already an article for this but it is using c#, if you want you can take a reference or you can convert this c# code to vb and you can use it the link is http://www.c-sharpcorner.com/article/convert-numeric-value-into-words-currency-in-c-sharp/ to convert C# code to vb got this link http://converter.telerik.com/ and add copy function one by one and convert to Vb

Ranjeet Patra · Answer

Have a look at the below links: https://www.codeproject.com/Articles/23752/Convert-Number-to-Word https://www.codeproject.com/Articles/33282/Simple-Class-to-Convert-Numbers-into-Text https://www.codeproject.com/Tips/538816/Convert-Numbers-to-Words-Neatly https://social.technet.microsoft.com/wiki/contents/articles/18894.how-to-get-the-textual-representation-of-a-number-convert-number-to-words-in-vb-net.aspx http://www.dreamincode.net/forums/topic/191686-conversion-of-numbers-to-words/

Nilesh Jadav · Answer

Hello Ashish ! You can add below class inside your vb code page. after adding this, you can call this class as : TextBox1.Text = NumeriCon.ConvertNum( "125800" ); It will show this number into words. Public Class NumeriCon Public Shared Function ConvertNum( ByVal Input As Long ) As String 'Call this function passing the number you desire to be changed Dim output As String = Nothing If Input Then output = FindNumber(Input) 'if its less than 1000 then just look it up Else Dim nparts() As String 'used to break the number up into 3 digit parts Dim n As String = Input 'string version of the number Dim i As Long = Input.ToString.Length 'length of the string to help break it up Do Until i - 3 n = n.Insert(i - 3, "," ) 'insert commas to use as splitters i = i - 3 'this insures that we get the correct number of parts Loop nparts = n.Split( "," ) 'split the string into the array i = Input.ToString.Length 'return i to initial value for reuse Dim p As Integer = 0 'p for parts, used for finding correct suffix For Each s As String In nparts Dim x As Long = CLng (s) 'x is used to compare the part value to other values p = p + 1 If p = nparts.Length Then 'if p = number of elements in the array then we need to do something different If x 0 Then If CLng (s) Then output = output & " And " & FindNumber( CLng (s)) ' look up the number, no suffix Else ' required as this is the last part output = output & " " & FindNumber( CLng (s)) End If End If Else 'if its not the last element in the array If x 0 Then If output = Nothing Then 'we have to check this so we don't add a leading space output = output & FindNumber( CLng (s)) & " " & FindSuffix(i, CLng (s)) 'look up the number and suffix Else 'spaces must go in the right place output = output & " " & FindNumber( CLng (s)) & " " & FindSuffix(i, CLng (s)) 'look up the snumber and suffix End If End If End If i = i - 3 'reduce the suffix counter by 3 to step down to the next suffix Next End If Return output End Function Private Shared Function FindNumber( ByVal Number As Long ) As String Dim Words As String = Nothing Dim Digits() As String = { "Zero" , "One" , "Two" , "Three" , "Four" , "Five" , "Six" , "Seven" , _ "Eight" , "Nine" , "Ten" } Dim Teens() As String = { "" , "Eleven" , "Twelve" , "Thirteen" , "Fourteen" , "Fifteen" , "Sixteen" , "Seventeen" , _ "Eighteen" , "Nineteen" } If Number Then Words = Digits(Number) ElseIf Number Then Words = Teens(Number - 10) ElseIf Number = 20 Then Words = "Twenty" ElseIf Number Then Words = "Twenty " & Digits(Number - 20) ElseIf Number = 30 Then Words = "Thirty" ElseIf Number Then Words = "Thirty " & Digits(Number - 30) ElseIf Number = 40 Then Words = "Fourty" ElseIf Number Then Words = "Fourty " & Digits(Number - 40) ElseIf Number = 50 Then Words = "Fifty" ElseIf Number Then Words = "Fifty " & Digits(Number - 50) ElseIf Number = 60 Then Words = "Sixty" ElseIf Number Then Words = "Sixty " & Digits(Number - 60) ElseIf Number = 70 Then Words = "Seventy" ElseIf Number Then Words = "Seventy " & Digits(Number - 70) ElseIf Number = 80 Then Words = "Eighty" ElseIf Number Then Words = "Eighty " & Digits(Number - 80) ElseIf Number = 90 Then Words = "Ninety" ElseIf Number Then Words = "Ninety " & Digits(Number - 90) ElseIf Number Then Words = Number.ToString Words = Words.Insert(1, "," ) Dim wparts As String () = Words.Split( "," ) Words = FindNumber(wparts(0)) & " " & "Hundred" Dim n As String = FindNumber(wparts(1)) If CLng (wparts(1)) 0 Then Words = Words & " And " & n End If End If Return Words End Function Private Shared Function FindSuffix( ByVal Length As Long , ByVal l As Long ) As String Dim word As String If l 0 Then If Length > 12 Then word = "Trillion" ElseIf Length > 9 Then word = "Billion" ElseIf Length > 6 Then word = "Million" ElseIf Length > 3 Then word = "Thousand" ElseIf Length > 2 Then word = "Hundred" Else word = "" End If Else word = "" End If Return word End Function End Class

How to convert number to word in vb.net ?

Answers (3)