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 wayplease 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?