Fiyat tutarını nasıl yazıya çeviririm?

Question

Örnek: 120,10 tl  
#Yüzyirmi tl on kuruş#

Answer 1

Örnek dosyayı biraz geç gönderiyorum kusura bakmayın :)

https://yadi.sk/d/4Mba778UewsXC

Comments

Guzel bir calisma olmus, ellerinize saglik.

Answer 2

Öncelikle 2 adet Custom Function gerekli

1.RAKAM TAMSAYI

2.kusus

En iyisi ben size örnek dosya göndereyim daha anlaşılır olur. :)

Answer 3

Bu kodu ben devamlı kullanırım. Custom Fiction olarakta kullana bilirsiniz, Databasede bir calculation alanada set edebilirsiniz. Kodu göndereceğim.

Answer 4

Database Açılacak alanlar.  Toplam = Number Yazıyla= Calculation  (aşağıdaki kodu kopyalayıp yapıştırın.)
Let([Million = Div(toplam; 1000000); Bin = Div((toplam - (Div(toplam; 1000000) * 1000000)); 1000); Yüz = Div(Int(Mod(toplam; 1000)); 100); On = Int(Mod(toplam; 1000)); Kuruş = (toplam - Int(toplam)) * 100 + ,00005]; Trim ( Choose(Div(Million; 100);""; "Bir"; "İki"; "Üç"; "Dört"; "Beş"; "Altı"; "Yedi"; "Sekiz"; "Dokuz") &  Case(Div(Million; 100) > 0; " Yüz ") & Choose(Div(Mod(Million; 100); 10);"" ;""; "Yirmi"; "Otuz "; "Kırk"; "Elli"; "Altmış "; Yetmiş "; "Seksen "; "Doksan ") &Choose(Case(Mod(Million; 100) >= 20; Mod(Million; 10); Mod(Million; 100));""; "Bir "; "İki "; "Üç "; "Dört "; "Beş "; "Altı "; "Yedi "; "Sekiz "; "Dokuz "; "On "; "Onbir "; "Oniki "; "Onüç "; "Ondört "; "Onbeş "; "Onaltı "; "Onyedi "; "Onsekiz"; "Ondokuz ") &Case(Million > 0; "Milyon ") & Choose(Div(Bin; 100); ""; ""; "İki"; "Üç"; "Dört"; "Beş"; "Altı"; "Yedi"; "Sekiz"; "Dokuz") & Case(Div(Bin; 100) > 0; " Yüz ") & Choose(Div(Mod(Bin; 100); 10); ""; ""; "Yirmi "; "Otuz "; "Kırk "; "Elli "; "Altmış "; "Yetmiş "; "Seksen "; "Doksan ") &Choose(Case(Mod(Bin; 100)  >= 20; Mod(Bin; 10); Mod(Bin; 100));""; ""; "İki "; "Üç "; "Dört "; "Beş "; Altı "; "Yedi "; "Sekiz "; "Dokuz "; "On "; "Onbir "; "Oniki "; "Onüç "; "Ondört "; "Onbeş "; "Onaltı "; "Onyedi "; "Onsekiz "; "Ondokuz ") &Case(Bin > 0; "Bin ") &  Choose(Yüz; ""; ""; "İki"; "Üç"; "Dört"; "Beş"; "Altı"; "Yedi"; "Sekiz"; "Dokuz") & Case(Yüz > 0;" Yüz ") &Choose(Div(Mod(Int(Mod(toplam; 1000)); 100); 10); ""; ""; "Yirmi "; "Otuz "; "Kırk "; "Elli "; "Altmış "; "Yetmiş"; "Seksen "; "Doksan ") &Choose(Case(Mod(On; 100) >= 20; Mod On; 10); Mod(On; 100));""; "Bir " ; "İki " ; "Üç " ; "Dört "; "Beş "; "Altı "; "Yedi "; "Sekiz "; "Dokuz "; "On "; "Onbir "; "Oniki "; "Onüç "; "Ondört "; "Onbeş "; "Onaltı "; "Onyedi "; "Onsekiz "; "Ondokuz ") &Case(toplam < 1; ""; Case(toplam < 2; "TL"; "TL")) & "  " & Choose(Div(Mod(Kuruş; 100); 10);""; ""; "Yirmi "; "Otuz "; "Kırk "; "Elli"; "Altmış "; "Yetmiş "; "Seksen"; "Doksan ") & Choose(Case(Mod(Kuruş; 100) >= 20; Mod(Kuruş; 10); Mod(Kuruş; 100));""; "Bir "; "İki "; "Üç "; "Dört "; "Beş "; "Altı "; "Yedi "; "Sekiz "; "Dokuz "; "On "; "Onbir "; "Oniki "; "Onüç "; "Ondört "; "Onbeş "; "Onaltı "; "Onyedi "; "Onsekiz "; "Ondokuz ") & Case(Kuruş < 1;"";Case(Kuruş < 2;"Kuruş"; "Kuruş"))) )