Newest functions Upload a function Leave a tip My account

There are 2,522 functions in this library.

TL ( #rakam )

To translate a number into text.

  Average rating: 4.0 (43 votes) Log in to vote

Kadir Kaleli - Show more from this author Yordam http://www.yordam.com

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let ([ numara = GetAsText ( Round ( #rakam ; 2 ) ) ; numara = If ( Position ( numara ; ","; 1 ; 1) > 0 ; numara ; numara & ",00" ) ; tl = Middle ( numara ; 1 ; Position ( numara ; ","; 1 ; 1)-1 ) ; tl = Right ( "000000000" & tl ; 9 ) ; krs = Middle ( numara ; Position ( numara ; ","; 1 ; 1)+1 ; 2 ) ; krs = Right ( "00" & krs ; 2 ) ; x9 = Choose( Middle( tl ; 1 ; 1 ) ; ""; "yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz") ; x8 = Choose( Middle( tl ; 2 ; 1 ) ; ""; "on";"yirmi";"otuz";"kırk";"elli"; "altmış";"yetmiş";"seksen";"doksan" ) ; x7 = Choose( Middle( tl ; 3 ; 1 ) ; If (x8 = "" ; "" ; "Milyon" ); "birmilyon";"ikimilyon";"üçmilyon";"dörtmilyon";"beşmilyon";"altımilyon";"yedimilyon";"sekizmilyon";"dokuzmilyon"); x6 = Choose( Middle( tl ; 4 ; 1 ) ; ""; "yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz") ; x5 = Choose( Middle( tl ; 5 ; 1 ) ; ""; "on";"yirmi";"otuz";"kırk";"elli"; "altmış";"yetmiş";"seksen";"doksan" ) ; x4 = Choose( Middle( tl ; 6 ; 1 ) ; If (x5 = "" ; "" ; "bin") ; If (x5 <> "" ; "birbin" ; "bin");"ikibin";"üçbin";"dörtbin";"beşbin";"altıbin";"yedibin";"sekizbin";"dokuzbin") ; x3 = Choose( Middle( tl ; 7 ; 1 ) ; ""; "yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz") ; x2 = Choose( Middle( tl ; 8 ; 1 ) ; ""; "on";"yirmi";"otuz";"kırk";"elli"; "altmış";"yetmiş";"seksen";"doksan" ) ; x1 = Choose( Middle( tl ; 9 ; 1 ) ; ""; "bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz") ; y1 = Choose( Middle( krs ; 1 ; 1 ) ; ""; "on";"yirmi";"otuz";"kırk";"elli"; "altmış";"yetmiş";"seksen";"doksan" ) ; y2 = Choose( Middle( krs ; 2 ; 1 ) ; ""; "bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz") ; genel = Proper ( x9 & x8 & x7 ) & Proper ( x6 & x5 & x4 ) & Proper ( x3 & x2 & x1 ) & " --Tl, " & Proper ( y1 & y2) & " --Krş." ] ; genel ) Click to copy

You can use to translate a number into text. You can translate your own language and currency.

 

Comments

		Agartha, Türkiye Dec 20, 2009
Dolar olarak kullanıldığında 15, doları 1 dolar beş sent olarak yazıyor.

		Mehmet Çelik, İstanbul Mar 14, 2017
Merhaba, Bu şekilde kullanırsanız 91 kuruşla biteni okur ama 90 kuruşu 8 kuruş olarak okur. Şöyle olursa problem kalkar: Let ([ numara = GetAsText ( Round ( #rakam ; 2 ) * 100 ) ; tl= Left (numara; (Length (numara) - 2)); tl = Right ( "000000000" & tl ; 9 ) ; krs = Right (numara; 2); .... same as original.... .... same as original.... .... genel = Proper ( x9 & x8 & x7 ) & Proper ( x6 & x5 & x4 ) & Proper ( x3 & x2 & x1 ) & " --Tl, " & Proper ( y1 & y2) & If ( y1 & y2 = ""; ""; " --Krş.") ] ; genel )

		Fahri Akar, Ä°stanbul / Turkey Jul 18, 2017
"numara" değişkeninin number fonksiyonlarıyla analizi: ---------------------------------------- Let ([ numara = Round ( #rakam ; 2 ) ; tl = Int ( numara) ; krs = numara - tl ; krs = Right ( 0 & krs * 100 ; 2 ) ; // burada "krs" düzeltme için text fonksiyonu ... ... ----------------------------------------

		Fahri Akar, Ä°stanbul / Turkey Jul 18, 2017
Benzer sayılarda sorun var: 100000234,8 100234,8

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: