Пропись числа на другом языке

[Mint86]

Друзья, на форуме не нашел. Возможно плохо искал (если так, каюсь). Есть задача написать сумму прописью на другом языке, скажем на турецком. Планирую использовать для нестандартных символов функцию chrW(код символа)
В правильном ли направлении я иду? Может есть более легкие или не легкие пути?

Пример: 153 (сто пятьдесят три) на русском, это же на турецком (yüz elli üç)

[IgorGO]

а напишите-ка сюда по турецки:
1 -
2 -
3 - üç
...
19 -
20 -
30 -
...
90 -
100 -
200 -
...
900 -
1000 -
1000000 -
1000000000 -

[Hugo121]

Я таким макаром переделывал русскую UDF на латышский - тоже с помощью ChrW().
Т.к. формирование чисел в обоих языках одинаковое. Кстати, как с этим в турецком?
А борьбу с полом числительных сделал просто - сделал две версии функции
Т.е. в одной версии один, два и т.д., в другой одна, две и т.д.
Хотя можно было аргумент добавить, но поленился - мне формулы менять не надо, один раз в бланк прописал - и на века
А там ещё варианты с нулём и без, со скобками и без (чтоб в строке формул не городить заодно)...

[Mint86]

В принципе правила почти такие же как и в русском языке. В примере это видно.

Думаю всё таки придется пойти путём использования chrw

0 ноль – sıfır
1 один – bir
2 два – iki
3 три – üç
4 четыре – dört
5 пять – beş
6 шесть – altı
7 семь – yedi
8 восемь – sekiz
9 девять – dokuz
10 десять – on
11 одиннадцать – on bir
12 двенадцать – on iki
13 тринадцать – on üç
14 четырнадцать – on dört
15 пятнадцать – on beş
16 шестнадцать – on altı
17 семнадцать – on yedi
18 восемнадцать – on sekiz
19 девятнадцать – on dokuz
20 двадцать – yirmi
30 тридцать – otuz
40 сорок - kırk
50 пятьдесят - elli
60 шестьдесят - altmış
70 семьдесят - yetmiş
80 восемьдесят - seksen
90 девяносто - doksan
100 сто - yüz
200 двести - iki yüz
300 триста - üç yüz
400 четыреста - dört yüz
500 пятьсот - beş yüz
600 шестьсот - altı yüz
700 семьсот - yedi yüz
800 восемьсот - sekiz yüz
900 девятьсот - dokuz yüz
1000 тысяча - bin
миллион - milyon
миллиард – milyarüz

[MCH]

судя по всему, правила проще чем в русском (по крайне мере в числах 11-19)

[MCH]

Проверте, я правильно понял?

[IgorGO]

и в сотнях. я зауважал турецкий за логичные числительные. сейчас поправлю свои прописи.

[Казанский]

Доделал свою функцию отсюда: http://www.planetaexcel.ru/forum.php?thread_id=948
Теперь с выбором языка (по умолчению русский).

Function num2text_word(x As Long, Optional Lang As Long = 1049) As String

With CreateObject("word.document")
    .Range.LanguageID = Lang
    .Fields.Add .Range, Type:=-1, Text:="=" & x & " \* cardtext"
    num2text_word = Replace(.Range.Text, vbCr, "")
    .Close 0
End With
End Function

Для турецкого второй аргумент 1055, для английского 1033 и т.д.
Если подключить Reference на Microsoft Word Object Library, можно использовать константы ворда wdTurkish, wdEnglishUS и т.д.

[IgorGO]

и свои прописи прицеплю. по турецки получилось мягко говоря "не очень" - турецкие буквы подвели.
зато все остальное - прописывает.
Если кто подскажет как затолкать турецких букв в названия числительных буду очень признателен.

[Mint86]

Спасибо всем друзья. Остановился всё таки на функции chrw. Муторно конечно, но что подулаешь такова жизнь...