Сумма прописью на кыргызском для MS Excel

Желающие могут скачать расширения (или надстройку) для MS Excel 2010 и выше где реализовано функция перевода сумму в текст. Например 34 232,34 в тексте на кыргызском будет “Отуз төрт миң эки жүз отуз эки сом 34 тыйын”. Расширение оформлено в виде addins (файл с расширением *xlam).

Чтобы подключить расширения Вам нужно
1. скачать расширения.
2.Сохранить на диск вашего компьютера.
3. Открыть меню Файл – Параметры.
4. Выбрать вкладку – Надстройки

Окно параметры Excel

5. Выбрать Управление: Надстройки Excel и нажать на кнопку “Перейти…”
6. Откроется окно надстроек.

Текущие надстройки

Пока что там нет нашей надстройки. Чтобы добавить ее нажимаем кнопку “Обзор…” и указываем на файл “число_с_прописью_Кыргызча.xlam” которую мы скачали. Теперь в списке появилась расширение “Число_с_прописью_Кыргызча”.

Расширение в списке

Теперь можем создать новую книгу Excel и пользоватся функцией “=ЧислоПрописьюКР(Сан)”

Сумма прописью на кыргызском.

Скачать расширение:

  число_с_прописью_Кыргызча.xlam (35.5 KiB, 2,294 hits)

Так же желающие могут изменить или переделать код на VB

' ====================================================================
' Санды кыргызчасында созго которуу функциясы
' сандар 0дон 999 триллионго чейин
' Чодоев Руслан ruslanch@list.ru, http://www.tamgasoft.kg
' версия 1.0 от 10.02.2016
' можете скачать новую версию с сайта http://www.tamgasoft.kg/
'
' Функции для вычисления суммы прописью на кыргызском языке по
' числовому значению от 0 до 999 триллион
' Чодоев Руслан ruslanch@list.ru, http://www.tamgasoft.kg
' версия 1.0 от 10.02.2016
' можете скачать новую версию с сайта http://www.tamgasoft.kg/
' ====================================================================

'====================================================================
Dim бирдик(9) As String
Dim ондук(9) As String
Dim жуздук, миндик, миллион, миллиард, триллион As String
'====================================================================

Private Function Миндиктерди_алуу(Сан As Currency) As String
Dim Сан2 As Currency

Миндиктерди_алуу = ""
Сан2 = Сан

If Сан < 1000 Then ' Минден аз болсо жон гана жуздукторду алабыз
 Миндиктерди_алуу = жуздукту_алуу(Сан)
 Exit Function
End If


If Сан >= 1000000000000# Then ' Триллиондон чон
 Сан2 = Сан - Int(Сан / 1000000000000#) * 1000000000000#
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000000000000#)) + " " + триллион + " " + Миндиктерди_алуу(Сан2)
 Exit Function
End If


If Сан >= 1000000000 Then ' Миллиарддан чон
 Сан2 = Сан - Int(Сан / 1000000000) * 1000000000
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000000000)) + " " + миллиард + " " + Миндиктерди_алуу(Сан2)
 Exit Function
End If



If Сан >= 1000000 Then ' Миллиондон чон
 Сан2 = Сан - Int(Сан / 1000000) * 1000000
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000000)) + " " + миллион + " " + Миндиктерди_алуу(Сан2)
 Exit Function
End If


If Сан >= 1000 Then ' Минден чон
 Сан2 = Сан - Int(Сан / 1000) * 1000
 Миндиктерди_алуу = жуздукту_алуу(Int(Сан / 1000)) + " " + миндик + " " + жуздукту_алуу(Сан2)
 Exit Function
End If

Индекс = Int(Сан2 / 1000)
If Индекс = 0 Then
 Миндиктерди_алуу = жуздукту_алуу(Сан)
 Exit Function
End If

Миндиктерди_алуу = Trim(бирдик(Индекс) + " " + миндик + " " + жуздукту_алуу(Сан))
End Function

'====================================================================

Private Function жуздукту_алуу(Сан As Currency) As String
Dim Сан2 As Currency
жуздукту_алуу = ""
Сан2 = Сан

If Сан < 100 Then
 жуздукту_алуу = ондукту_алуу(Сан)
 Exit Function
End If

If Сан >= 1000 Then
 Сан2 = Сан - Int(Сан / 1000) * 1000
End If

Индекс = Int(Сан2 / 100)

If Индекс = 0 Then
 жуздукту_алуу = ондукту_алуу(Сан)
 Exit Function
End If

жуздукту_алуу = Trim(бирдик(Индекс) + " " + жуздук + " " + ондукту_алуу(Сан))
End Function

'====================================================================

Private Function ондукту_алуу(Сан As Currency) As String
Dim Сан2 As Currency
ондукту_алуу = ""

Сан2 = Сан
If Сан < 10 Then
 ондукту_алуу = бирдикти_алуу(Сан)
 Exit Function
End If

If Сан >= 100 Then
 Сан2 = Сан - Int(Сан / 100) * 100
End If


Индекс = Int(Сан2 / 10)
If Индекс = 0 Then
 ондукту_алуу = бирдикти_алуу(Сан)
 Exit Function
End If

ондукту_алуу = Trim(ондук(Индекс) + " " + бирдикти_алуу(Сан))
End Function

'====================================================================

Private Function бирдикти_алуу(Сан As Currency) As String
Dim Сан2 As Currency
бирдикти_алуу = ""
Сан2 = Сан
If Сан < 1 Then Exit Function
If Сан >= 10 Then
 Сан2 = Сан - Int(Сан / 10) * 10
End If
If Сан2 = 0 Then
 Exit Function
End If


Индекс = Int(Сан2 / 1)
If Индекс = 0 Then
 бирдикти_алуу = ""
 Exit Function
End If

бирдикти_алуу = бирдик(Индекс)

End Function

'====================================================================

Function ЧислоПрописьюКР(Сан As Currency, Optional Валюта As String = "сом", Optional Тыйын As String = "тыйын")
' Керектуу переменныйлар

Dim ch As Currency
Dim Результат As String
Dim тый As String

' Массивдерди толтурабыз
бирдик(1) = "бир"
бирдик(2) = "эки"
бирдик(3) = ChrW(1199) + "ч"
бирдик(4) = "т" + ChrW(1257) + "рт"
бирдик(5) = "беш"
бирдик(6) = "алты"
бирдик(7) = "жети"
бирдик(8) = "сегиз"
бирдик(9) = "тогуз"
ондук(1) = "он"
ондук(2) = "жыйырма"
ондук(3) = "отуз"
ондук(4) = "кырк"
ондук(5) = "ээл" + ChrW(1199)
ондук(6) = "алтымыш"
ондук(7) = "жетимиш"
ондук(8) = "сексен"
ондук(9) = "токсон"
жуздук = "ж" + ChrW(1199) + "з"
миндик = "ми" + ChrW(1187)
миллион = "миллион"
миллиард = "миллиард"
триллион = "триллион"

Результат = Trim(Миндиктерди_алуу(Сан)) ' негизги функцияны чыкырабыз
Результат = UCase(Left(Результат, 1)) + Right(Результат, Len(Результат) - 1) ' биринчи тамгасын чон кылабыз


тый = Format(Round((Сан - Int(Сан)) * 100), "00") ' тыйындарды кошобуз

If Тыйын = "" Then
 ЧислоПрописьюКР = Trim(Результат + " " + Валюта) ' жыйынтык (тыйындары жок)
 Else
 ЧислоПрописьюКР = Trim(Результат + " " + Валюта + " " + тый + " " + Тыйын) ' жыйынтык
End If

End Function

'====================================================================

• • Русский
  • Кыргызча
  • English

• Наши онлайн сервисы

  

  ---

  

  ---

  

• Recent Posts

  • (Русский) Вышла новая версия InDesign 2025
  • (Русский) Вышли новые версии плагина для InDesign 2023 и InDesign 2024
  • Сөздү Карасаевдин орфографиялык сөздүгүнөн онлайн тактап текшерип алсаңыз болот.
  • (Русский) Вышли модули проверки орфографии Кыргызского языка для MS Office 2016.
  • Проверка орфографии кыргызского языка для Office 2016 и выше.
  • InDesign CC 2018 (13.1) жана CC 2019 (14.0) версияларына Кыргыз жана Казак тилиндеги ташымалдоо плагиндери даяр болду
  • (Русский) Интервью по плагинам переноса для тематического сайта Designer.kz
  • InDesign CC 2017 жана CC 2018 версиясына жаңы кыргыз тилиндеги тексттерди ташымалдоо жана текшерүүчү плагиндер кошулду.
  • Кыргызча сөздөрдү морфологиялык анализдөө
  • Число с прописью Кыргызча для Excel
  

• Мы на Facebooke

• Загрузки

  • tamgakit-orfo-2013.exe (7.4 MiB, 134,090 hits)
  • KyrSpell 2.3 (x86)- Проверка орфографии кыргызского языка для MS Office 97-2013 (32 битная) (2.5 MiB, 49,210 hits)
  • KyrSpell 2.3 (x64) - Проверка орфографии кыргызского языка для MS Office 2007-2013 - 64 битная (2.5 MiB, 30,160 hits)
  • Русско-Кыргызский терминологический словарь. Дата обновления 29.06.2006 (725.7 KiB, 25,549 hits)
  • Кыргыз_тилинин_эрежелери.zip (22.8 KiB, 18,990 hits)
  • Инструкция установки проверки орфографии кыргызского языка для OpenOffice для Linux (158.0 KiB, 14,463 hits)
  • Инструкция установки проверки орфографии кыргызского языка для OpenOffice для Win32 (158.8 KiB, 13,382 hits)
  • Инструкция установки плагина проверки орфографии кыргызского языка для InDesign (80.2 KiB, 12,915 hits)
  • Plug-in проверки орфографии кыргызского языка для InDesign CS5 (1.2 MiB, 11,446 hits)
  • Plug-in проверки орфографии кыргызского языка для InDesign CS4 (1.2 MiB, 10,179 hits)
  • TamgaKIT_1.5_Ooo_2_3.zip - Модули проверки орфографии кыргызского языка для OpenOffice 2.0 и выше (win32+linux) (2.4 MiB, 10,080 hits)
  • Plug-in проверки орфографии кыргызского языка для InDesign CS3 (1.2 MiB, 10,025 hits)

• Последние комментарии

  • lucynaogon on (Русский) Вышли новые версии плагина для InDesign 2023 и InDesign 2024
  • ыфыфы on Число с прописью Кыргызча для Excel
  • ыфыфы on Число с прописью Кыргызча для Excel
  • ыфыфы on Число с прописью Кыргызча для Excel
  • Руслан Чодоев on Плагин (Plug-in) проверки орфографии и расстановки переноса киргизского языка для Adobe® InDesign® CS3, CS4, CS5, CS6, CC 2017, CC 2018.
  • Руслан Чодоев on InDesign CC 2014 жана InDesign CC 2015 үчүн орфография жана ташымалдоо плагини
  • Руслан on Кыргыз тилинин жазуу эрежелери (орфографиялык эрежеси)
  • Латифа on Кыргыз тилинин жазуу эрежелери (орфографиялык эрежеси)

• Контакты

  Руслан Чодоев
  Кыргызская Республика,
  г.Бишкек
  тел.: 0(557) 75-11-29 (WhatsApp/Telegram)
  e-mail: ruslanch@list.ru

• Метки

  Excel InDesign InDesign 2018 InDesign CC 2017 InDesign CC 2018 InDesign CS5 InDesign CS6 KyrSpell MS Office MS Office 2010 MS Office 2013 Орфография Переносы Плагин Расширение Тамга-КИТ ТамгаСофт алгоритм переноса казахский казахский язык киргизский язык клавиатурная расскладка котормо котормосу кыргызская клавиатура кыргыз тили кыргыз тилинин орфографиясы кыргызча сөздүк манас онлайн словарь перенос проверка орфографии скачать словарь сөз сөздүк сөздөр ташымалдоо ташымалдоо эрежеси тезаурус узбекский узбекский язык эл-сөздүк энциклопедия эпос