Sayısal para değerini metine dönüştürüyoruz

Son güncelleme 6 Ağustos 2006 Pazar

Fatura ile ilgili yazılım geliştirenlerin ihtiyaç duyduğu öncelikli fonksiyonlardan biri de sayısal para değerini metine dönüştürme fonksiyonudur.

Basit olsa da TL/YTL, kuruş hesabı gibi opsiyonlar kafaları karıştırabilir.

Para yönetimine yönelik geliştirilen yazılımların hata lüksü olmadığı için ihtiyacı olan arkadaşlar güvenle kullanabilirler.

Fonksiyon VB.Net'te yazıldı, sonradan C#'a da çevrildi. Ayrıca yaygın kullanılan formatlarda sonuç üretebilmesi için enumeration ile çeşitli opsiyonlar eklendi.

Örnek proje içerisinde hem C# hem de vb.net versiyonları, ayrı projeler olarak Solution'a eklenip VB.Net'de hazırlanmış örnek form tarafından kullanıldı.

Kullanımı

ParaYaziya(decimal, ParaYaziyaGosterimTipi, string, string)

ilk parametre para miktarı, ikinci parametre gösterim formatı (opsiyonel), üçüncü parametre para birimi (opsiyonel), dördüncü parametre kuruş birimi (opsiyonel)

string para = ParaYaziya(5456.07m, ParaYaziyaGosterimTipi.AralardaBoslukVar | ParaYaziyaGosterimTipi.YTL | ParaYaziyaGosterimTipi.BirimOlsun | ParaYaziyaGosterimTipi.KurusDaimaGozuksun | ParaYaziyaGosterimTipi.BuyukHarf);

VB.Net

Dim para As String = ParaYaziya(5456.07, ParaYaziyaGosterimTipi.AralardaBoslukVar Or ParaYaziyaGosterimTipi.YTL Or ParaYaziyaGosterimTipi.BirimOlsun Or ParaYaziyaGosterimTipi.KurusDaimaGozuksun Or ParaYaziyaGosterimTipi.BuyukHarf)

Fonksiyonun C# versiyonu

[Flags] public enum ParaYaziyaGosterimTipi : byte
		{
			BuyukHarf = 1,				BasHarflerBuyuk = 2,
			AralardaBoslukVar = 4,		UcerliGrupBoslugu = 8,
			BirimOlsun = 16,			YTL = 32,
			KurusDaimaGozuksun = 64,
			Varsayilan = BuyukHarf + BirimOlsun + YTL + KurusDaimaGozuksun
		}

public static string ParaYaziya(decimal para)
		{
			return ParaYaziya(para, ParaYaziyaGosterimTipi.Varsayilan, "", "");
		}
		public static string ParaYaziya(decimal para, ParaYaziyaGosterimTipi gosterimTipi)
		{
			return ParaYaziya(para, gosterimTipi, "", "");
		}
		public static string ParaYaziya(decimal para, ParaYaziyaGosterimTipi gosterimTipi, string paraBirimi, string kurusBirimi)
		{
			// Programlama: Serdar IRMAK (C)2005 http://www.argelab.net
			string[,] a = new string[,] {{"Sıfır ", "Bir ", "İki ", "Üç ", "Dört ", "Beş ", "Altı ", "Yedi ", "Sekiz ", "Dokuz "}, 
				{"", "On ", "Yirmi ", "Otuz ", "Kırk ", "Elli ", "Altmış ", "Yetmiş ", "Seksen ", "Doksan "}, 
				{"", "Yüz ", "İkiyüz ", "Üçyüz ", "Dörtyüz ", "Beşyüz ", "Altıyüz ", "Yediyüz ", "Sekizyüz ", "Dokuzyüz "}, 
				{"", "_Bin_", "_Milyon_", "_Milyar_", "_Trilyon_", "_Katrilyon_", "_Kentrilyon_", "_Bin_Kentrilyon_", "_Milyon_Kentrilyon_", "_Milyar_Kentrilyon_"}};
			string[] t = new string[] {"TL", "KURUŞ", "YTL", "YKR"}; 
			string sf = a[0, 0];
			if(paraBirimi==null) paraBirimi="";
			if(kurusBirimi==null) kurusBirimi="";
			if(paraBirimi!="" || kurusBirimi!="")
			{
				t[2] = paraBirimi.Trim().ToUpper();
				t[3] = kurusBirimi.Trim().ToUpper();
				gosterimTipi |= ParaYaziyaGosterimTipi.YTL | ParaYaziyaGosterimTipi.BirimOlsun;
			}
			if(para != .0m) para = Convert.ToDecimal(para.ToString(".00"));
			string kr = Decimal.Subtract(para , Decimal.Truncate(para)).ToString();
			kr = kr.Length>1 ? kr.Substring(2) : "";
			string[] z = new string[] {"", "", Decimal.Truncate(para).ToString(), (kr=="" && ((int)gosterimTipi & 0x40)!=0) ? "0" : kr};
			
			for(int j=0; j<2; j++)
			{
				a[0, 0] = z[2 + j] == "0" ? sf : "";
				string p = ("00" + z[j + 2]).Substring((z[j + 2].Length + 2) % 3);
				for (int i = p.Length - 3; i >= 0; i -= 3)
					z[j] = a[2, Convert.ToInt32(p.Substring(i,1))] + a[1, Convert.ToInt32(p.Substring(i+1,1))] + ((p.Substring(i, 3)=="001" && i==0 && p.Length==6) ? "" : a[0, Convert.ToInt32(p.Substring(i + 2, 1))]) + (p.Substring(i, 3)=="000" ? "" : a[3, (p.Length - i) / 3 - 1]) + z[j];
				z[j] = ( ((int)gosterimTipi & 2)!=0 ? z[j] : (((int)gosterimTipi & 1)!=0 ? z[j].ToUpper() : z[j].ToLower()) ).Replace(" ", ((int)gosterimTipi & 4)!=0 ? " " : "").Replace("_", ((int)gosterimTipi & 0xC)!=0 ? " " : "").Trim().Replace("  ", " ");
			}
			return z[0] + ((z[0].Length>0 && (((int)gosterimTipi & 16)!=0 || z[1].Length>0)) ? " " + t[((int)gosterimTipi & 32) >> 4] : "") + (z[1].Length>0 ? (z[0].Length>0 ? " " : "") + z[1] + " " + t[(((int)gosterimTipi & 32) >> 4) + 1] : "");
		}

Fonksiyonun VB.Net versiyonu

<FlagsAttribute()> Public Enum ParaYaziyaGosterimTipi As Byte
        BuyukHarf = 1 : BasHarflerBuyuk = 2
        AralardaBoslukVar = 4 : UcerliGrupBoslugu = 8
        BirimOlsun = 16 : YTL = 32
        KurusDaimaGozuksun = 64
        Varsayilan = BuyukHarf + BirimOlsun + YTL + KurusDaimaGozuksun
    End Enum
    Public Shared Function ParaYaziya(ByVal para As Decimal, Optional ByVal gosterimTipi As ParaYaziyaGosterimTipi = ParaYaziyaGosterimTipi.Varsayilan, _
                                      Optional ByVal paraBirimi As String = "", Optional ByVal kurusBirimi As String = "") As String
        ' Programlama: Serdar IRMAK (C)2005 http://www.argelab.net
        Dim a(,) As String = {{"Sıfır ", "Bir ", "İki ", "Üç ", "Dört ", "Beş ", "Altı ", "Yedi ", "Sekiz ", "Dokuz "}, _
                              {"", "On ", "Yirmi ", "Otuz ", "Kırk ", "Elli ", "Altmış ", "Yetmiş ", "Seksen ", "Doksan "}, _
                              {"", "Yüz ", "İkiyüz ", "Üçyüz ", "Dörtyüz ", "Beşyüz ", "Altıyüz ", "Yediyüz ", "Sekizyüz ", "Dokuzyüz "}, _
                              {"", "_Bin_", "_Milyon_", "_Milyar_", "_Trilyon_", "_Katrilyon_", "_Kentrilyon_", "_Bin_Kentrilyon_", "_Milyon_Kentrilyon_", "_Milyar_Kentrilyon_"}}
        Dim t() As String = {"TL", "KURUŞ", "YTL", "YKR"}, sf As String = a(0, 0)
        If paraBirimi <> "" OrElse kurusBirimi <> "" Then t(2) = Trim(UCase(paraBirimi)) : t(3) = Trim(UCase(kurusBirimi)) _
                                                        : gosterimTipi = gosterimTipi Or ParaYaziyaGosterimTipi.YTL Or ParaYaziyaGosterimTipi.BirimOlsun

If para <> 0 Then para = Format(para, ".00")
        Dim kr As String = Mid(para - Decimal.Truncate(para), 3), z() As String = {"", "", Decimal.Truncate(para), IIf((gosterimTipi And 64) AndAlso kr = "", "0", kr)}

For j As Integer = 0 To 1
            a(0, 0) = IIf(z(2 + j) = "0", sf, "")
            Dim p As String = ("00" & z(j + 2)).Substring((z(j + 2).Length + 2) Mod 3) ' ="  00 0".Substring(z(j+2).Length Mod 3 << 1, 2).Trim() & z(j+2) de olabilir
            For i As Integer = p.Length - 3 To 0 Step -3
                z(j) = a(2, p.Substring(i, 1)) & a(1, p.Substring(i + 1, 1)) & IIf(p.Substring(i, 3) = "001" AndAlso i = 0 AndAlso p.Length = 6, _
                       "", a(0, p.Substring(i + 2, 1))) & IIf(p.Substring(i, 3) = "000", "", a(3, (p.Length - i) / 3 - 1)) & z(j)
            Next
            z(j) = IIf(gosterimTipi And 2, z(j), IIf(gosterimTipi And 1, z(j).ToUpper(), z(j).ToLower())).Replace(" ", _
                   IIf(gosterimTipi And 4, " ", "")).Replace("_", IIf(gosterimTipi And &HC, " ", "")).Trim().Replace("  ", " ")
        Next
        ParaYaziya = z(0) & IIf(z(0).Length > 0 AndAlso ((gosterimTipi And &H10) OrElse z(1).Length > 0), " " & t((gosterimTipi And &H20) >> 4), "") & _
                     IIf(z(1).Length > 0, IIf(z(0).Length > 0, " ", "") & z(1) & " " & t(((gosterimTipi And &H20) >> 4) + 1), "")
    End Function

argelab_parayi_metine_donusturme.zip (117K)

ArgeLab.net, bu sitenin eksiksiz ve hatasız olduğu
konusunda bir garanti veremez. Bu sitede yer alan bilgilerin ve
programların kullanımı sonucu oluşabilecek zararlardan
sorumlu tutulamaz.