[font='Titillium Web', sans-serif]Function[/FONT][font='Titillium Web', sans-serif] NToT(Value)[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] N(100)[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] T(5)[/FONT]
[font='Titillium Web', sans-serif]N(0) = [/FONT][font='Titillium Web', sans-serif]"sıfır"[/FONT]
[font='Titillium Web', sans-serif]N(1) = [/FONT][font='Titillium Web', sans-serif]"bir"[/FONT]
[font='Titillium Web', sans-serif]N(2) = [/FONT][font='Titillium Web', sans-serif]"iki"[/FONT]
[font='Titillium Web', sans-serif]N(3) = [/FONT][font='Titillium Web', sans-serif]"üç"[/FONT]
[font='Titillium Web', sans-serif]N(4) = [/FONT][font='Titillium Web', sans-serif]"dört"[/FONT]
[font='Titillium Web', sans-serif]N(5) = [/FONT][font='Titillium Web', sans-serif]"beş"[/FONT]
[font='Titillium Web', sans-serif]N(6) = [/FONT][font='Titillium Web', sans-serif]"altı"[/FONT]
[font='Titillium Web', sans-serif]N(7) = [/FONT][font='Titillium Web', sans-serif]"yedi"[/FONT]
[font='Titillium Web', sans-serif]N(8) = [/FONT][font='Titillium Web', sans-serif]"sekiz"[/FONT]
[font='Titillium Web', sans-serif]N(9) = [/FONT][font='Titillium Web', sans-serif]"dokuz"[/FONT]
[font='Titillium Web', sans-serif]N(10) = [/FONT][font='Titillium Web', sans-serif]"On"[/FONT]
[font='Titillium Web', sans-serif]N(20) = [/FONT][font='Titillium Web', sans-serif]"yirmi"[/FONT]
[font='Titillium Web', sans-serif]N(30) = [/FONT][font='Titillium Web', sans-serif]"otuz"[/FONT]
[font='Titillium Web', sans-serif]N(40) = [/FONT][font='Titillium Web', sans-serif]"kırk"[/FONT]
[font='Titillium Web', sans-serif]N(50) = [/FONT][font='Titillium Web', sans-serif]"elli"[/FONT]
[font='Titillium Web', sans-serif]N(60) = [/FONT][font='Titillium Web', sans-serif]"altmış"[/FONT]
[font='Titillium Web', sans-serif]N(70) = [/FONT][font='Titillium Web', sans-serif]"yetmiş"[/FONT]
[font='Titillium Web', sans-serif]N(80) = [/FONT][font='Titillium Web', sans-serif]"seksen"[/FONT]
[font='Titillium Web', sans-serif]N(90) = [/FONT][font='Titillium Web', sans-serif]"doksan"[/FONT]
[font='Titillium Web', sans-serif]T(0) = [/FONT][font='Titillium Web', sans-serif]""[/FONT]
[font='Titillium Web', sans-serif]T(1) = [/FONT][font='Titillium Web', sans-serif]"bin"[/FONT]
[font='Titillium Web', sans-serif]T(2) = [/FONT][font='Titillium Web', sans-serif]"milyon"[/FONT]
[font='Titillium Web', sans-serif]T(3) = [/FONT][font='Titillium Web', sans-serif]"milyar"[/FONT]
[font='Titillium Web', sans-serif]T(4) = [/FONT][font='Titillium Web', sans-serif]"trilyon"[/FONT]
[font='Titillium Web', sans-serif]T(5) = [/FONT][font='Titillium Web', sans-serif]"kattrilyon"[/FONT]
[font='Titillium Web', sans-serif]ThreeIn = [/FONT][font='Titillium Web', sans-serif]Int[/FONT][font='Titillium Web', sans-serif]([/FONT][font='Titillium Web', sans-serif]Len[/FONT][font='Titillium Web', sans-serif](Value) / 3)[/FONT]
[font='Titillium Web', sans-serif]ThreeOut = [/FONT][font='Titillium Web', sans-serif]Len[/FONT][font='Titillium Web', sans-serif](Value) - ThreeIn * 3[/FONT]
[font='Titillium Web', sans-serif]ThreeOuttedText = [/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](Value, ThreeOut + 1)[/FONT]
[font='Titillium Web', sans-serif]ThreeInText = [/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif](Value, ThreeOut)[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] Threes()[/FONT]
[font='Titillium Web', sans-serif]ReDim[/FONT][font='Titillium Web', sans-serif] Threes(ThreeIn)[/FONT]
[font='Titillium Web', sans-serif]Select[/FONT][font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]Len[/FONT][font='Titillium Web', sans-serif](ThreeInText)[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif] 1[/FONT]
[font='Titillium Web', sans-serif]LeftText = N(ThreeInText)[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif] 2[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](ThreeInText, 2, 1) <> [/FONT][font='Titillium Web', sans-serif]"0"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]LeftText = N([/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif](ThreeInText, 1) & [/FONT][font='Titillium Web', sans-serif]"0"[/FONT][font='Titillium Web', sans-serif]) & N([/FONT][font='Titillium Web', sans-serif]Right[/FONT][font='Titillium Web', sans-serif](ThreeInText, 1))[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]LeftText = N(ThreeInText)[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Select[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] ThreeIn <> 0 [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] SplittedNumber()[/FONT]
[font='Titillium Web', sans-serif]ReDim[/FONT][font='Titillium Web', sans-serif] SplittedNumber(ThreeIn - 1)[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = 0 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif]UBound[/FONT][font='Titillium Web', sans-serif](SplittedNumber)[/FONT]
[font='Titillium Web', sans-serif]SplittedNumber(i) = [/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](ThreeOuttedText, (i * 3) + 1, 3)[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = [/FONT][font='Titillium Web', sans-serif]UBound[/FONT][font='Titillium Web', sans-serif](SplittedNumber) [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] 0 Step -1[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 1, 1) <> [/FONT][font='Titillium Web', sans-serif]"0"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 1, 1) <> [/FONT][font='Titillium Web', sans-serif]"1"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]A = N([/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 1, 1)) & [/FONT][font='Titillium Web', sans-serif]"yüz"[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]A = [/FONT][font='Titillium Web', sans-serif]"yüz"[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]A = [/FONT][font='Titillium Web', sans-serif]""[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 2, 1) <> [/FONT][font='Titillium Web', sans-serif]"0"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]B = N([/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 2, 1) & 0)[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]B = [/FONT][font='Titillium Web', sans-serif]""[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 3, 1) <> [/FONT][font='Titillium Web', sans-serif]"0"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]C = N([/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](SplittedNumber(i), 3, 1))[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]C = [/FONT][font='Titillium Web', sans-serif]""[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Threes([/FONT][font='Titillium Web', sans-serif]UBound[/FONT][font='Titillium Web', sans-serif](SplittedNumber) - i) = A & B & C[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = IIf((ThreeOut = 0), [/FONT][font='Titillium Web', sans-serif]UBound[/FONT][font='Titillium Web', sans-serif](Threes) - 1, [/FONT][font='Titillium Web', sans-serif]UBound[/FONT][font='Titillium Web', sans-serif](Threes)) [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] 0 Step -1[/FONT]
[font='Titillium Web', sans-serif]ThreeText = ThreeText & Threes(i) & T(i) & [/FONT][font='Titillium Web', sans-serif]" "[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]LastText = LeftText & ThreeText[/FONT]
[font='Titillium Web', sans-serif]LastText = [/FONT][font='Titillium Web', sans-serif]Replace[/FONT][font='Titillium Web', sans-serif](LastText, [/FONT][font='Titillium Web', sans-serif]"birbin"[/FONT][font='Titillium Web', sans-serif], [/FONT][font='Titillium Web', sans-serif]"bin"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]LastText = [/FONT][font='Titillium Web', sans-serif]Replace[/FONT][font='Titillium Web', sans-serif](LastText, [/FONT][font='Titillium Web', sans-serif]" bin"[/FONT][font='Titillium Web', sans-serif], [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]LastText = [/FONT][font='Titillium Web', sans-serif]Replace[/FONT][font='Titillium Web', sans-serif](LastText, [/FONT][font='Titillium Web', sans-serif]" milyon"[/FONT][font='Titillium Web', sans-serif], [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]LastText = [/FONT][font='Titillium Web', sans-serif]Replace[/FONT][font='Titillium Web', sans-serif](LastText, [/FONT][font='Titillium Web', sans-serif]" milyar"[/FONT][font='Titillium Web', sans-serif], [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]LastText = [/FONT][font='Titillium Web', sans-serif]Replace[/FONT][font='Titillium Web', sans-serif](LastText, [/FONT][font='Titillium Web', sans-serif]" trilyon"[/FONT][font='Titillium Web', sans-serif], [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]LastText = [/FONT][font='Titillium Web', sans-serif]Replace[/FONT][font='Titillium Web', sans-serif](LastText, [/FONT][font='Titillium Web', sans-serif]" kattrilyon"[/FONT][font='Titillium Web', sans-serif], [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]NToT = LastText[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Function[/FONT]
