conversion of amount to Rupees Program

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) < 0)

{

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) <= 2)

{

if ((Conversions.ToDouble(expression) >= 0.0) & (Conversions.ToDouble(expression) <= 20.0))

{

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) <= 3)

{

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 <= num2; 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 <= num2; i++)

{

str2 = str2 + str;

}

return str2;

}

11 Replies

Know the answer? Post it — somebody with the same question will find it here.

Ravi Shekhar13y ago
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) < 0)
{
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) <= 2)
{
if ((Conversions.ToDouble(expression) >= 0.0) & (Conversions.ToDouble(expression) <= 20.0))
{
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) <= 3)
{
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 <= num2; 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 <= num2; i++)
{
str2 = str2 + str;
}
return str2;
}
Priya Alugade13y ago
Sir,

Please sir give me coding any way,please please
Ravi Shekhar13y ago
This is a dll. It contains a bunch of code. You cannot break it . But there r some software to break this dll.
Priya Alugade13y ago
Sir,

I can't read this numtoword attached file.

Regards,
Priyanka
Ravi Shekhar13y ago
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 Alugade13y ago
Good Morning Sir,

Yes sir, I want like 500= Five Hundred Rupees Only.

Thanks & Regards,
Priyanka
Ravi Shekhar13y ago
Hi, I think u want to convert your rs. into words??

Like 500= Five hundred rupees.

m i right???
Ravi Shekhar13y ago
I mean to say Write down your code in reply.
Satyapriya Nayak13y ago
http://getvbnetcode.blogspot.in/2012/12/convert-number-into-words-in-vbnet.html
http://www.codeproject.com/Articles/23752/Convert-Number-to-Word
Priya Alugade13y ago
Dear Sir,
Where is the share option, i am confused, please tell me immediately, & you give me coding in vb.net m i right?
Ravi Shekhar13y ago
Hi Priyanka ,

Share your code here.

regards ,
ravi