# code to convert a particular digit in to words

Posted by Amritha444 under C# on 1/11/2011 | Points: 10 | Views : 3147 | Status : [Member] | Replies : 3
Hi all

could you please suggest code to convert a particular digit in to words

for eg: i want to convert 1234 in to one thousand two hunhred thirty four

 0 Hi, try this code, it works perfect... ```Dim rs as Integer Dim rsWord as String=RupeesToWord(rs) Funtion --- Function RupeesToWord(ByVal MyNumber) Dim Temp Dim Rupees, Paisa As String Dim DecimalPlace, iCount Dim Hundreds, Words As String Dim place(9) As String place(0) = " Thousand " place(2) = " Lakh " place(4) = " Crore " place(6) = " Arab " place(8) = " Kharab " On Error Resume Next ' Convert MyNumber to a string, trimming extra spaces. MyNumber = Trim(Str(MyNumber)) ' Find decimal place. DecimalPlace = InStr(MyNumber, ".") ' If we find decimal place... If DecimalPlace > 0 Then ' Convert Paisa Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Paisa = " and " & ConvertTens(Temp) & " Paisa" ' Strip off paisa from remainder to convert. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If '=============================================================== Dim TM As String ' If MyNumber between Rs.1 To 99 Only. TM = Right(MyNumber, 2) If Len(MyNumber) > 0 And Len(MyNumber) <= 2 Then If Len(TM) = 1 Then Words = ConvertDigit(TM) RupeesToWord = "Rupees " & Words & Paisa & " Only" Exit Function Else If Len(TM) = 2 Then Words = ConvertTens(TM) RupeesToWord = "Rupees " & Words & Paisa & " Only" Exit Function End If End If End If '=============================================================== ' Convert last 3 digits of MyNumber to ruppees in word. Hundreds = ConvertHundreds(Right(MyNumber, 3)) ' Strip off last three digits MyNumber = Left(MyNumber, Len(MyNumber) - 3) iCount = 0 Do While MyNumber <> "" 'Strip last two digits Temp = Right(MyNumber, 2) If Len(MyNumber) = 1 Then If Trim(Words) = "Thousand" Or _ Trim(Words) = "Lakh Thousand" Or _ Trim(Words) = "Lakh" Or _ Trim(Words) = "Crore" Or _ Trim(Words) = "Crore Lakh Thousand" Or _ Trim(Words) = "Arab Crore Lakh Thousand" Or _ Trim(Words) = "Arab" Or _ Trim(Words) = "Kharab Arab Crore Lakh Thousand" Or _ Trim(Words) = "Kharab" Then Words = ConvertDigit(Temp) & place(iCount) MyNumber = Left(MyNumber, Len(MyNumber) - 1) Else Words = ConvertDigit(Temp) & place(iCount) & Words MyNumber = Left(MyNumber, Len(MyNumber) - 1) End If Else If Trim(Words) = "Thousand" Or _ Trim(Words) = "Lakh Thousand" Or _ Trim(Words) = "Lakh" Or _ Trim(Words) = "Crore" Or _ Trim(Words) = "Crore Lakh Thousand" Or _ Trim(Words) = "Arab Crore Lakh Thousand" Or _ Trim(Words) = "Arab" Then Words = ConvertTens(Temp) & place(iCount) MyNumber = Left(MyNumber, Len(MyNumber) - 2) Else Words = ConvertTens(Temp) & place(iCount) & Words MyNumber = Left(MyNumber, Len(MyNumber) - 2) End If End If iCount = iCount + 2 Loop RupeesToWord = "Rupees " & Words & Hundreds & Paisa & " Only" End Function ' Conversion for hundreds '***************************************** Private Function ConvertHundreds(ByVal MyNumber) Dim Result As String ' Exit if there is nothing to convert. If Val(MyNumber) = 0 Then Exit Function ' Append leading zeros to number. MyNumber = Right("000" & MyNumber, 3) ' Do we have a hundreds place digit to convert? If Left(MyNumber, 1) <> "0" Then Result = ConvertDigit(Left(MyNumber, 1)) & " Hundreds " End If ' Do we have a tens place digit to convert? If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & ConvertTens(Mid(MyNumber, 2)) Else ' If not, then convert the ones place digit. Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If ConvertHundreds = Trim(Result) End Function ' Conversion for tens '***************************************** Private Function ConvertTens(ByVal MyTens) Dim Result As String ' Is value between 10 and 19? If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10 : Result = "Ten" Case 11 : Result = "Eleven" Case 12 : Result = "Twelve" Case 13 : Result = "Thirteen" Case 14 : Result = "Fourteen" Case 15 : Result = "Fifteen" Case 16 : Result = "Sixteen" Case 17 : Result = "Seventeen" Case 18 : Result = "Eighteen" Case 19 : Result = "Nineteen" Case Else End Select Else ' .. otherwise it's between 20 and 99. Select Case Val(Left(MyTens, 1)) Case 2 : Result = "Twenty " Case 3 : Result = "Thirty " Case 4 : Result = "Forty " Case 5 : Result = "Fifty " Case 6 : Result = "Sixty " Case 7 : Result = "Seventy " Case 8 : Result = "Eighty " Case 9 : Result = "Ninety " Case Else End Select ' Convert ones place digit. Result = Result & ConvertDigit(Right(MyTens, 1)) End If ConvertTens = Result End Function Private Function ConvertDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1 : ConvertDigit = "One" Case 2 : ConvertDigit = "Two" Case 3 : ConvertDigit = "Three" Case 4 : ConvertDigit = "Four" Case 5 : ConvertDigit = "Five" Case 6 : ConvertDigit = "Six" Case 7 : ConvertDigit = "Seven" Case 8 : ConvertDigit = "Eight" Case 9 : ConvertDigit = "Nine" Case Else : ConvertDigit = "" End Select End Function ``` Thanks Karthik www.f5Debug.netAmritha444, if this helps please login to Mark As Answer. | Alert Moderator
 0 Hi, If you want in C# try the below code ```string convertToWords(double value) { int left = floor(value); int temp; int section = 1; string words = ""; string part; while (left > 0) { temp = left % 1000; left = left / 1000; //convert temp into words of blank hundred, blankty blank //store this part of the words in the string part; //use int section to determine if it's the millions, thousands, etc. words = part + words; section = section + 1; } } ``` Thanks Karthik www.f5Debug.netAmritha444, if this helps please login to Mark As Answer. | Alert Moderator