Rakamı yazıya çevirme Filemaker 11.0 ilede denedim yine olmuyor?

Question

11 ile denedim yine olmuyor

Answer 1

örnek dosya demişsiniz onu indiremedim. yardım ederseniz sevinirim

Answer 2

Teamviwer varsa bakayım.? Sağ tarafta hoşgeldin yazısının altında numaram var. Ararsan yardımcı olurum. veya numaranı ver ben arayayım?

 

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ş"))) )