Beyaz.Net İpucu
Filemaker da Sayıyı yazıya çeviren fonksiyon
FileMaker’da sadece iki alan kullanarak sayırı yazıya çevirebilirsiniz. Mesela 5624 sayısını
"Beşbinaltıyüzyirmidört" şeklinde yazdırabilirsiniz. Nasıl mı? Aşağıdaki calculation ile.
Choose(Int(Int(Tutar Rakamla/1000000000)/100);
"";"";"iki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz") &
If(Int(Int(Tutar Rakamla/1000000000)/100) > 0;" Yüz ";"") &
Choose(Int(Mod(Int(Tutar Rakamla/1000000000);100)/10);
"";"";"Yirmi ";"Otuz ";"Kırk ";"Elli"; "Altmış ";"Yetmiş ";"Seksen ";"Doksan ") &
Choose(If(Mod(Int(Tutar Rakamla/1000000000);100) >= 20;
Mod(Int(Tutar Rakamla/1000000000);10); Mod(Int(Tutar Rakamla/1000000000);100));
""; "Bir " ;"iki " ;"Üç " ;"Dört " ;"Beş " ;"Altı " ;"Yedi " ;"Sekiz ";"Dokuz " ;
"On " ;"Onbir " ;"Oniki " ;"Onüç " ;"Ondört " ;"Onbeş ";"Onaltı " ;"Onyedi " ;"Onsekiz " ;"Ondokuz ") &
If(Int(Tutar Rakamla/1000000000) > 0;"Milyar ";"") &
Choose(Int(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000)/100);
"";"";"iki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz") &
If(Int(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000)/100) > 0;"Yüz ";"") &
Choose(Int(Mod(Int((Tutar Rakamla (Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000);100)/10);
"On " ;"Onbir " ;"Oniki " ;"Onüç " ;"Ondört " ;"Onbeş ";"Onaltı " ;"Onyedi " ;"Onsekiz " ;"Ondokuz ") &
If(Int(Tutar Rakamla/1000000000) > 0;"Milyar ";"") &
Choose(Int(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000)/100);
"";"";"iki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz") &
If(Int(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000)/100) > 0;"Yüz ";"") &
Choose(Int(Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000);100)/10);
"";"";"Yirmi ";"Otuz ";"Kırk";"Elli ";"Altmış ";"Yetmiş ";"Seksen ";"Doksan ") &
Choose(If(Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000);100) >= 20;
Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000);10);
Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000);100));
"";"Bir " ;"iki " ;"Üç " ;"Dört " ;"Beş " ;"Altı " ;"Yedi " ;"Sekiz ";"Dokuz " ;
"On " ;"Onbir " ;"Oniki " ;"Onüç " ;"Ondört " ;"Onbeş ";"Onaltı " ;"Onyedi " ;"Onsekiz " ;"Ondokuz ") &
If(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000000) * 1000000000 ))/1000000) > 0;"Milyon ";"") &
Choose(Int(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000)/100);
"";"";"iki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz") &
If(Int(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000)/100) > 0;" Yüz ";"") &
Choose(Int(Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000);100)/10);
"";"";"Yirmi ";"Otuz ";"Kırk";"Elli ";"Altmış ";"Yetmiş ";"Seksen ";"Doksan ") &
Choose(If(Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000);100) >= 20;
Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000);10);
Mod(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000);100));
"";"" ;"iki " ;"Üç " ;"Dört " ;"Beş " ;"Altı " ;"Yedi " ;"Sekiz ";"Dokuz " ;
"On " ;"Onbir " ;"Oniki " ;"Onüç " ;"Ondört " ;"Onbeş ";"Onaltı " ;"Onyedi " ;"Onsekiz " ;"Ondokuz ") &
If(Int((Tutar Rakamla-(Int(Tutar Rakamla/1000000) * 1000000 ))/1000) > 0;"Bin ";"") &
Choose(Int(Int(Mod(Tutar Rakamla;1000))/100);"";"";"iki";"Üç";"Dört";"Beş";"Altı";
"Yedi";"Sekiz";"Dokuz") & If(Int(Int(Mod(Tutar Rakamla;1000))/100) > 0;" Yüz ";"") &
Choose(Int(Mod(Int(Mod(Tutar Rakamla;1000));100)/10);"";"";"Yirmi ";"Otuz ";"Kırk";"Elli ";"Altmış ";"Yetmiş
";"Seksen ";"Doksan ") &
Choose(If(Mod(Int(Mod(Tutar Rakamla;1000));100) >= 20;Mod(Int(Mod(Tutar
Rakamla;1000));10);Mod(Int(Mod(Tutar Rakamla;1000));100));
"";"Bir" ;"iki " ;"Üç " ;"Dört " ;"Beş " ;"Altı " ;"Yedi " ;"Sekiz ";"Dokuz " ;
"On " ;"Onbir " ;"Oniki " ;"Onüç " ;"Ondört " ;"Onbeş ";"Onaltı " ;
"Onyedi " ;"Onsekiz " ;"Ondokuz ") &
If(Tutar Rakamla < 1;" "; If(Tutar Rakamla < 2;"";""))