conversion of amount to Rupees Program

Question

Dear Sir/Madam Please send me the program of 'conversion of amount to Rupees'. in vb.net I am waiting. Thanks & Regards Priyanka

Ravi Shekhar · Answer

Hi Priyanka , Share your code here. regards , ravi

Ravi Shekhar · Answer

I am sharing code below . But it only run on VS2010 or higher version public string AmtInWord(decimal Num) { string str4; string str2 = Conversions.ToString(Num); if (Strings.InStr(1, str2, ".", CompareMethod.Binary) != 0) { string expression = Strings.Mid(str2, Strings.InStr(1, str2, ".", CompareMethod.Binary) + 1); if (Strings.Len(expression) == 1) { expression = expression + "0"; } if (Strings.Len(expression) > 2) { expression = Strings.Mid(expression, 1, 2); } str2 = Strings.Mid(str2, 1, Strings.InStr(1, str2, ".", CompareMethod.Binary) - 1); str4 = Conversions.ToString(Operators.AddObject(Operators.AddObject(Interaction.IIf(Conversions.ToDouble(str2) == 1.0, " Rupee ", " Rupees "), this.NumToWord(new decimal(Conversions.ToDouble(str2)))), Interaction.IIf(Conversions.ToDouble(expression) > 0.0, " and Paise" + this.cWord3(new decimal(Conversions.ToDouble(expression))), ""))); } else { str4 = Conversions.ToString(Operators.AddObject(Interaction.IIf(Conversions.ToDouble(str2) == 1.0, " Rupee ", " Rupees "), this.NumToWord(new decimal(Conversions.ToDouble(str2))))); } return (str4 + " Only"); } private string cWord3(decimal Num) { string expression = ""; string str4 = ""; string str2 = ""; if (decimal.Compare(Num, decimal.Zero) { Num = decimal.Multiply(Num, decimal.MinusOne); } expression = Conversions.ToString(Num); if (Strings.Len(expression) == 3) { str2 = Conversions.ToString(Conversions.ToDouble(Strings.Mid(expression, 1, 1))); str4 = this.retWord(Conversions.ToDecimal(str2)) + " Hundred"; expression = Strings.Mid(expression, 2, Strings.Len(expression)); } if (Strings.Len(expression) { if ((Conversions.ToDouble(expression) >= 0.0) & (Conversions.ToDouble(expression) { str4 = str4 + " " + this.retWord(new decimal(Conversions.ToDouble(expression))); } else { str4 = str4 + " " + this.retWord(new decimal(Conversions.ToDouble(Strings.Mid(expression, 1, 1) + "0"))) + " " + this.retWord(new decimal(Conversions.ToDouble(Strings.Mid(expression, 2, 1)))); } } expression = Conversions.ToString(Num); return str4; } private string cWordG3(decimal Num) { string expression = ""; string str4 = ""; string str2 = ""; expression = Conversions.ToString(Num); if ((Strings.Len(expression) % 2) != 0) { str2 = Conversions.ToString(Conversions.ToDouble(Strings.Mid(expression, 1, 1))); if (str2 != "0") { str4 = this.retWord(Conversions.ToDecimal(str2)); str2 = Conversions.ToString(Conversions.ToDouble("1" + this.strReplicate("0", Strings.Len(expression) - 1) + "000")); str4 = str4 + " " + this.retWord(Conversions.ToDecimal(str2)); } expression = Strings.Mid(expression, 2); } while (Strings.Len(expression) != 0) { str2 = Conversions.ToString(Conversions.ToDouble(Strings.Mid(expression, 1, 2))); if (str2 != "0") { str4 = str4 + " " + this.cWord3(Conversions.ToDecimal(str2)); str2 = Conversions.ToString(Conversions.ToDouble("1" + this.strReplicate("0", Strings.Len(expression) - 2) + "000")); str4 = str4 + " " + this.retWord(Conversions.ToDecimal(str2)); } expression = Strings.Mid(expression, 3); } return str4; } private string NumToWord(decimal Num) { string expression = Conversions.ToString(Num); if (Strings.Len(expression) { return this.cWord3(new decimal(Conversions.ToDouble(expression))); } return (this.cWordG3(new decimal(Conversions.ToDouble(Strings.Mid(expression, 1, Strings.Len(expression) - 3)))) + " " + this.cWord3(new decimal(Conversions.ToDouble(Strings.Mid(expression, Strings.Len(expression) - 2))))); } private string retWord(decimal Num) { object[,] array = new 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" }, { 0x10, "Sixteen" }, { 0x11, "Seventeen" }, { 0x12, "Eighteen" }, { 0x13, "Nineteen" }, { 20, "Twenty" }, { 30, "Thirty" }, { 40, "Forty" }, { 50, "Fifty" }, { 60, "Sixty" }, { 70, "Seventy" }, { 80, "Eighty" }, { 90, "Ninety" }, { 100, "Hundred" }, { 0x3e8, "Thousand" }, { 0x186a0, "Lakh" }, { 0x989680, "Crore" } }; int num2 = Information.UBound(array, 1); for (int i = 0; i { if (Operators.ConditionalCompareObjectEqual(Num, array[i, 0], false)) { return Conversions.ToString(array[i, 1]); } } return ""; } private string strReplicate(string str, int intD) { string str2 = ""; int num2 = intD; for (int i = 1; i { str2 = str2 + str; } return str2; }

Priya Alugade · Answer

Sir, Please sir give me coding any way,please please

Ravi Shekhar · Answer

This is a dll. It contains a bunch of code. You cannot break it . But there r some software to break this dll.

Priya Alugade · Answer

Sir, I can't read this numtoword attached file. Regards, Priyanka

Ravi Shekhar · Answer

Hi priyanka , I am sharing a dll to convert NumtoWord. Browse attached dll into your application . and call through using NumToWord; Now, decimal dc = 235; NumberToWord ObjNum = new NumberToWord(); string str= ObjNum.AmtInWord(dc); in str u 'll get " Rupees Two Hundred Thirty Five Only" Regards, Ravi

Priya Alugade · Answer

Good Morning Sir, Yes sir, I want like 500= Five Hundred Rupees Only. Thanks & Regards, Priyanka

Ravi Shekhar · Answer

Hi, I think u want to convert your rs. into words?? Like 500= Five hundred rupees. m i right???

Ravi Shekhar · Answer

I mean to say Write down your code in reply.

Satyapriya Nayak · Answer

http://getvbnetcode.blogspot.in/2012/12/convert-number-into-words-in-vbnet.html http://www.codeproject.com/Articles/23752/Convert-Number-to-Word

Priya Alugade · Answer

Dear Sir, Where is the share option, i am confused, please tell me immediately, & you give me coding in vb.net m i right?

conversion of amount to Rupees Program

Insert Link

Embed YouTube Video

Table Options

Insert Image

Answers (11)