дата прописью - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

дата прописью

ivanov1974

Дата: Четверг, 05.01.2012, 23:37 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 149

Репутация: 1 ±

Замечаний: 0% ±

В ячейку А1 вводим дату, скажем 15.06.2011. Что надо сделать, чтобы в ячейке А2 эта дата отображалась прописью на украинском языке (п’ятнадцятого червня дві тисячі одинадцятого року)?

Ответить

MCH

Дата: Пятница, 06.01.2012, 00:57 | Сообщение № 2

Группа: Админы

Ранг: Старожил

Сообщений: 2004

Репутация: 752 ±

Замечаний: ±

сделал на формулах (без макросов), на русском.
Думаю что на украинский легко будет перевести (только я его не знаю).
Потестируйте, если все правильно, то можно будет и макрос сделать, либо все в одну формулу засунуть без доп. ячеек

К сообщению приложен файл: PropisDateRus.xls (20.0 Kb)

Ответить

IgorGo

Дата: Пятница, 06.01.2012, 03:04 | Сообщение № 3

Группа: Друзья

Ранг: Форумчанин

Сообщений: 108

Репутация: 38 ±

Замечаний: 0% ±

Сережа, там числительние в именительном падеже (у називному відмінку).

ivanov1974, (типично украинская фамилия) на листе1 допишете недостающие числительные в порядке возростания (надо от 1 до 19 и десятки от 20 до 90).

очень крепко не проверял, но вроде должно корректно работать на датах с 01.01.1901 по 31.12.2099.

Code

=ЕСЛИ(ДЕНЬ(A1)<20;ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ДЕНЬ(A1);Лист1!A:A)); ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ЦЕЛОЕ(ДЕНЬ(A1)/10)*10;Лист1!A:A)) & " " & ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ДЕНЬ(A1);10);Лист1!A:A))) & ТЕКСТ(A1;"[$-FC22] ММММ ") & ЕСЛИ(ГОД(A1)=2000;"двох тисячного";ЕСЛИ(ГОД(A1)<2000;"тисяча дев'ятсот "; "дві тисячі ") & ЕСЛИ(ОСТАТ(ГОД(A1);100)<20;ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ГОД(A1);100);Лист1!A:A)); ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ЦЕЛОЕ(ОСТАТ(ГОД(A1);100)/10)*10;Лист1!A:A)) & " " & ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ГОД(A1);10);Лист1!A:A)))) & " року"

К сообщению приложен файл: R764.rar (6.1 Kb)

Ответить

MCH

Дата: Пятница, 06.01.2012, 03:13 | Сообщение № 4

Группа: Админы

Ранг: Старожил

Сообщений: 2004

Репутация: 752 ±

Замечаний: ±

Игорь, не знаю как по украински, но по русски будет: "двадцать первое .... шестьдесят первого года"
Числительные для дней и лет в разных падежах, в украинском, думаю, также

Хотя в примере ТС - падеж одинаквый

Сообщение отредактировал MCH - Пятница, 06.01.2012, 03:15

Ответить

IgorGo

Дата: Пятница, 06.01.2012, 03:15 | Сообщение № 5

Группа: Друзья

Ранг: Форумчанин

Сообщений: 108

Репутация: 38 ±

Замечаний: 0% ±

извините, погорячился...
с числами кратными 10 - будет лажа полнейшая что в датах, что в годах(((

а вот с этим "двадцать первое .... шестьдесят первого года" - как раз все нормально надо: ... першого червня ... першого року.

Ответить

IgorGo

Дата: Пятница, 06.01.2012, 03:42 | Сообщение № 6

Группа: Друзья

Ранг: Форумчанин

Сообщений: 108

Репутация: 38 ±

Замечаний: 0% ±

есть.
алгоритм не пострадал. чуть-чуть поправлен.

Code

=ЕСЛИ(ДЕНЬ(A1)<20;ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ДЕНЬ(A1);Лист1!A:A)); ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ДЕНЬ(A1);Лист1!A:A)) & ЕСЛИ(ОСТАТ(ДЕНЬ(A1);10)=0;"";" ") & ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ДЕНЬ(A1);10);Лист1!A:A))) & ТЕКСТ(A1;"[$-FC22] ММММ ") & ЕСЛИ(ГОД(A1)=2000;"двох тисячного";ЕСЛИ(ГОД(A1)<2000;"тисяча дев'ятсот "; "дві тисячі ") & ЕСЛИ(ОСТАТ(ГОД(A1);100)<20;ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ГОД(A1);100);Лист1!A:A)); ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ГОД(A1);100);Лист1!A:A)) & ЕСЛИ(ОСТАТ(ГОД(A1);10)=0;"";" ") & ИНДЕКС(Лист1!$B:$B;ПОИСКПОЗ(ОСТАТ(ГОД(A1);10);Лист1!A:A)))) & " року"

на листе1 по-прежнему требуется записать числа от 1 до 20 и теперь аналогично с приведенными для 20,21 и 60,61 записать для всех десятков.

удачи!

К сообщению приложен файл: 8223373.rar (6.1 Kb)

Ответить

MCH

Дата: Пятница, 06.01.2012, 04:29 | Сообщение № 7

Группа: Админы

Ранг: Старожил

Сообщений: 2004

Репутация: 752 ±

Замечаний: ±

Ну и мой вариант,
должна работать от 01.01.1900 до 31.12.2299

возможно числительные не правильно записаны, проверяте
(ТЕКСТ своровал у IgorGo)

К сообщению приложен файл: PropisDateUkr.xls (18.5 Kb)

Ответить

MCH

Дата: Пятница, 06.01.2012, 12:20 | Сообщение № 8

Группа: Админы

Ранг: Старожил

Сообщений: 2004

Репутация: 752 ±

Замечаний: ±

вариант без доп. ячеек (на именах)

К сообщению приложен файл: PropisDateUkr2.xls (40.5 Kb)

Ответить

ivanov1974

Дата: Пятница, 06.01.2012, 12:47 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 149

Репутация: 1 ±

Замечаний: 0% ±

Огромное спасибо всем, IgorGo и особенно МСН! Все четко работает и никаких проблем.

Ответить

MCH

Дата: Воскресенье, 08.01.2012, 03:11 | Сообщение № 10

Группа: Админы

Ранг: Старожил

Сообщений: 2004

Репутация: 752 ±

Замечаний: ±

Понравилась идея Игоря с куазанием всех числительных в одном диапазоне на отдельном листе.
Реализовал свой вариант, формула получилась даже не очень большая

К сообщению приложен файл: PropisDateUkr3.xls (35.5 Kb)