1- double theNo : Numbers to be converted to characters along with fraction if needed.
2- string mainCurr : The main currency name such as Dinar.
3- string subCurr : Sub currency name, used for fractions.
----------------------------------------------------------------------------------------------
using System;
using System.Collections.Generic;
using System.Text;
namespace Global
{
class NumericToChar
{
public static string NumberToWord_Ar(double theNo, string mainCurr, string subCurr)
{
string NoToTxt = String.Empty;
string[] MyArry1 = new string[9 + 1];
string[] MyArry2 = new string[9 + 1];
string[] MyArry3 = new string[9 + 1];
string Myno = String.Empty;
string GetNo = String.Empty;
string RdNo = String.Empty;
string My100 = String.Empty;
string My10 = String.Empty;
string My1 = String.Empty;
string My11 = String.Empty;
string My12 = String.Empty;
string GetTxt = String.Empty;
string Mybillion = String.Empty;
string MyMillion = String.Empty;
string MyThou = String.Empty;
string MyHun = String.Empty;
string MyFraction = String.Empty;
string MyAnd = String.Empty;
int I = 0;
string ReMark = String.Empty;
if (theNo > 999999999999.999)
{
return NoToTxt;
}
if (theNo <>
{
theNo = theNo * -1.0;
ReMark = "يتبقى لكم ";
}
else
{
ReMark = " ";
}
if (theNo == 0.0)
{
NoToTxt = "صفر";
return NoToTxt;
}
MyAnd = " و ";
MyArry1[0] = "";
MyArry1[1] = "مائة";
MyArry1[2] = "مائتان";
MyArry1[3] = "ثلاثمائة";
MyArry1[4] = "أربعمائة";
MyArry1[5] = "خمسمائة";
MyArry1[6] = "ستمائة";
MyArry1[7] = "سبعمائة";
MyArry1[8] = "ثمانمائة";
MyArry1[9] = "تسعمائة";
MyArry2[0] = "";
MyArry2[1] = " عشر";
MyArry2[2] = "عشرون";
MyArry2[3] = "ثلاثون";
MyArry2[4] = "أربعون";
MyArry2[5] = "خمسون";
MyArry2[6] = "ستون";
MyArry2[7] = "سبعون";
MyArry2[8] = "ثمانون";
MyArry2[9] = "تسعون";
MyArry3[0] = "";
MyArry3[1] = "واحد";
MyArry3[2] = "اثنان";
MyArry3[3] = "ثلاثة";
MyArry3[4] = "أربعة";
MyArry3[5] = "خمسة";
MyArry3[6] = "ستة";
MyArry3[7] = "سبعة";
MyArry3[8] = "ثمانية";
MyArry3[9] = "تسعة";
// ======================
GetNo = theNo.ToString("000000000000.000");
I = 0;
while (I <>
{
if (I <>
{
// ISSUE: Potential Substring problem; VB6 Original: Mid$(GetNo, I + 1, 3)
Myno = GetNo.Substring(I + 1 - 1, 3);
}
else
{
// ISSUE: Potential Substring problem; VB6 Original: Mid$(GetNo, I + 2, 2)
Myno = "0" + GetNo.Substring(I + 2 - 1, 2);
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (String.Compare((Myno.Substring(1 - 1, 3)), "0") > 0)
{
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 1)
RdNo = Myno.Substring(1 - 1, 1);
My100 = MyArry1[Convert.ToInt32(RdNo)];
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 3, 1)
RdNo = Myno.Substring(3 - 1, 1);
My1 = MyArry3[Convert.ToInt32(RdNo)];
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 1)
RdNo = Myno.Substring(2 - 1, 1);
My10 = MyArry2[Convert.ToInt32(RdNo)];
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 2)
if (Convert.ToInt32(Myno.Substring(2 - 1, 2)) == 11)
{
My11 = "إحدى عشر";
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 2)
if (Convert.ToInt32(Myno.Substring(2 - 1, 2)) == 12)
{
My12 = "إثنى عشر";
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 2)
if (Convert.ToInt32(Myno.Substring(2 - 1, 2)) == 10)
{
My10 = "عشرة";
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 1)
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 2)
if ((String.Compare((Myno.Substring(1 - 1, 1)), "00") > 0) && (String.Compare((Myno.Substring(2 - 1, 2)), "00") > 0))
{
My100 = My100 + MyAnd;
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 3, 1)
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 1)
if ((String.Compare((Myno.Substring(3 - 1, 1)), "0") > 0) && (String.Compare((Myno.Substring(2 - 1, 1)), "1") > 0))
{
My1 = My1 + MyAnd;
}
GetTxt = My100 + My1 + My10;
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 3, 1)
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 1)
if (((Myno.Substring(3 - 1, 1)) == "1") && ((Myno.Substring(2 - 1, 1)) == "1"))
{
GetTxt = My100 + My11;
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 1)
if (((Myno.Substring(1 - 1, 1)) == "0"))
{
GetTxt = My11;
}
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 3, 1)
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 2, 1)
if (((Myno.Substring(3 - 1, 1)) == "2") && ((Myno.Substring(2 - 1, 1)) == "1"))
{
GetTxt = My100 + My12;
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 1)
if (((Myno.Substring(1 - 1, 1)) == "0"))
{
GetTxt = My12;
}
}
if ((I == 0) && (GetTxt != ""))
{
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (String.Compare((Myno.Substring(1 - 1, 3)), "10") > 0)
{
Mybillion = GetTxt + " مليار";
}
else
{
Mybillion = GetTxt + " مليارات";
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (((Myno.Substring(1 - 1, 3)) == "2"))
{
Mybillion = " مليار";
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (((Myno.Substring(1 - 1, 3)) == "2"))
{
Mybillion = " ملياران";
}
}
}
if ((I == 3) && (GetTxt != ""))
{
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (String.Compare((Myno.Substring(1 - 1, 3)), "10") > 0)
{
MyMillion = GetTxt + " مليون";
}
else
{
MyMillion = GetTxt + " مليون";
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (((Myno.Substring(1 - 1, 3)) == "1"))
{
MyMillion = " مليون";
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (((Myno.Substring(1 - 1, 3)) == "2"))
{
MyMillion = " مليونان";
}
}
}
if ((I == 6) && (GetTxt != ""))
{
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 1, 3)
if (String.Compare((Myno.Substring(1, 2)), "02") <= 0)
{
MyThou = GetTxt + " ألف";
}
else
{
MyThou = GetTxt + " ألف";
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 3, 1)
if (((Myno.Substring(3 - 1, 1)) == "1") && (Convert.ToInt32(Myno.Substring(2 - 1, 2)) != 11))
{
MyThou = " ألف";
}
// ISSUE: Potential Substring problem; VB6 Original: Mid$(Myno, 3, 1)
else if (((Myno.Substring(3 - 1, 1)) == "2") && (Convert.ToInt32(Myno.Substring(2 - 1, 2)) == 12))
{
MyThou = " ألفان";
}
else if (Convert.ToInt32(Myno.Substring(2 - 1, 2)) <= 10)
{
MyThou = GetTxt + " آلاف";
}
}
}
if ((I == 9) && (GetTxt != ""))
{
MyHun = GetTxt;
}
if ((I == 12) && (GetTxt != ""))
{
MyFraction = Myno;
}
}
I = I + 3;
}
if ((Mybillion != ""))
{
if ((MyMillion != "") || (MyThou != "") || (MyHun != ""))
{
Mybillion = Mybillion + MyAnd;
}
}
if ((MyMillion != ""))
{
if ((MyThou != "") || (MyHun != ""))
{
MyMillion = MyMillion + MyAnd;
}
}
if ((MyThou != ""))
{
if ((MyHun != ""))
{
MyThou = MyThou + MyAnd;
}
}
if (theNo.ToString().IndexOf(".") != -1)
MyFraction = theNo.ToString("0.000").Substring(theNo.ToString("0.000").IndexOf(".") + 1);
if (MyFraction != "")
{
if ((Mybillion != "") || (MyMillion != "") || (MyThou != "") || (MyHun != ""))
{
NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + mainCurr + MyAnd + MyFraction + " " + subCurr;
}
else
{
NoToTxt = ReMark + MyFraction + " " + subCurr;
}
}
else
{
NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + mainCurr;
}
return NoToTxt;
}
}
}
-----------------------------------------------------------------------------------------------
