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

Sample input:

#TL ( 12345678,12 )

Sample output:

OnikimilyonÜçyüzkırkbeşbinAltıyüzyetmişsekiz --Tl, Oniki --Krş.

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 
)

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

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

TL ( #rakam )

Comments

Support this website.

Support this website.