Форум бухгалтеров и предпринимателей Узбекистана

[Tuesso]

Выкладываю свою программу по расчету заработной платы и соответствующих налогов от нее....ссылка для скачивания.

Господа форумчане, активно тестируем программу и вносим свои предложения.....
Программа удобна тем что:
а) в формулы вносить какие либо изменения по ставкам НДФЛ, ИНПС, ЕСП и ПФ не требуется, надо лишь менять данные процентные ставки в соответствующих открытых ячейках;
б) нет путаницы с многочисленными листами в книге;
в) без каких либо макросов и прочих надстроек VBA;

P.S. ячейки с формулами защищены паролем дабы случайно не натворить чудес....

[Умида]

Пароль выложите сразу

[Tuesso]

Может кому пригодится формула для вода суммы прописью:

(окончательный вариант ниже по теме)

Примечание: Значение A1 в данной формуле это базовая ячейка которую нужно заменить на нужную.......
P.S. Формула весьма большая но 100%-ная....благодарности принимаются...

[Tuesso]

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

Надеюсь на Ваше понимание...!!!

[Murad aka]

Встаньте курсором на ячейку с формулой, нажмите F2, сотрите знак равенства и слово индекс и наберите заново, нажмите ENTER. Вот и все работает.

[Tuesso]

При простом копировании формулы следует стереть первое значение ИНДЕКС, и написать его заново т.к. данное значение в таблице Excel отображается некорректно и соответственно команда в табличном процессоре MS Excel не распознаётся...

[Tuesso]

Окончательный вариант с корректным отображением тийинов:

=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^7);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/10^6);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)=1;"ов ";ВПР(ОСТАТ(ОТБР(A1/10^6);10);{0;"ов ":1;" ":2;"а ":5;"ов "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^4);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/1000);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)<>1;ИНДЕКС({"";"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/1000);1000);"тысяч"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/1000);10);{0;" ":1;"а ":2;"и ":5;" "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОТБР(A1)=0;"ноль ";ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1);10)+1);""))&"сум"&ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)=1;"";ВПР(ОСТАТ(ОТБР(A1);10);{0;"":1;"":2;"":5;""};2))&ТЕКСТ(ОТБР((A1-ОТБР(A1)+0,00001)*100);" 00_ тийин.")

[Murad aka]

Вот то же самое на узбекском
=ИНДЕКС({" ";"юз ";"икки юз ";"уч юз ";"турт юз ";"беш юз ";"олти юз ";"етти юз ";"саккиз юз ";"туккиз юз "};ОСТАТ(ОТБР(A1/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^7);10)+1;"";ИНДЕКС({"ун ";"ун бир ";"ун икки ";"ун уч ";"ун турт ";"ун беш ";"ун олти ";"ун етти ";"ун саккиз ";"ун туккиз "};ОСТАТ(ОТБР(A1/10^6);10)+1);"йигирма ";"уттиз ";"кирк ";"эллик ";"олтмиш ";"етмиш ";"саксон ";"туксон ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)<>1;ИНДЕКС({" ";"бир ";"икки ";"уч ";"турт ";"беш ";"олти ";"етти ";"саккиз ";"туккиз "};ОСТАТ(ОТБР(A1/10^6);10)+1);" ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/10^6);10);{0;" ":1;" ":2;" ":5;" "};2));" ")&ИНДЕКС({" ";"юз ";"икки юз ";"уч юз ";"турт юз ";"беш юз ";"олти юз ";"етти юз ";"саккиз юз ";"туккиз юз "};ОСТАТ(ОТБР(A1/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^4);10)+1;" ";ИНДЕКС({"ун ";"ун бир ";"ун икки ";"ун уч ";"ун турт ";"ун беш ";"ун олти ";"ун етти ";"ун саккиз ";"ун туккиз "};ОСТАТ(ОТБР(A1/1000);10)+1);"йигирма ";"уттиз ";"кирк ";"эллик ";"олтмиш ";"етмиш ";"саксон ";"туксон ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)<>1;ИНДЕКС({" ";"бир ";"икки ";"уч ";"турт ";"беш ";"олти ";"етти ";"саккиз ";"туккиз "};ОСТАТ(ОТБР(A1/1000);10)+1);" ")&ЕСЛИ(ОСТАТ(ОТБР(A1/1000);1000);"минг"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/1000);10);{0;" ":1;" ":2;" ":5;" "};2));" ")&ИНДЕКС({" ";"юз ";"икки юз ";"уч юз ";"турт юз ";"беш юз ";"олти юз ";"ети юз ";"саккиз юз ";"туккиз юз "};ОСТАТ(ОТБР(A1/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10);10)+1;" ";ИНДЕКС({"ун ";"ун бир ";"ун икки ";"ун уч ";"ун турт ";"ун беш ";"ун олти ";"ун етти ";"ун саккиз ";"ун туккиз "};ОСТАТ(ОТБР(A1);10)+1);"йигирма ";"уттиз ";"кирк ";"эллик ";"олтмиш ";"етмиш ";"саксон ";"туксон ")&ЕСЛИ(ОТБР(A1)=0;"ноль ";ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)<>1;ИНДЕКС({" ";"бир ";"икки ";"уч ";"турт ";"беш ";"олти ";"етти ";"саккиз ";"туккиз "};ОСТАТ(ОТБР(A1);10)+1);" "))&"сум "&ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1);10);{0;"":1;" ":2;" ":5;" "};2))&ТЕКСТ(ОТБР((A1-ОТБР(A1)+0,00001)*100);" 00\ тийин.;;")

[Умида]

[RIZO]

Уваж. Tuesso! Надо ввести исправление, чтобы прогр.правильно считала при меньших отработанных дней. В приведенном Вами примере 1-строка с тем же окладом при 10 ти дней налог считает не верно.

[Tuesso]

[Tuesso]

Исправил минусовые показатели в ИНПС тестируйте новую откорректированную версию, ....ссылка для скачивания:

https://cloud.mail.ru/public/2060b8a6f1ef/project%202015%20version%204.2.16%20%D1%81%20%D0%BE%D0%BA%D0%BB%D0%B0%D0%B4%D0%BE%D0%BC.xlsx

[James]

[Tuesso]

Господа .... Не нужны вам эти танцы с бубном код: 8284