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