Вариант Получить Число В Родительном Падеже

Есть на форуме мисты такая вот функция

 Функция ПолучитьЧислоВРодПадеже(Число)
     Единицы = "одного
    |двух
    |трёх
    |четырёх
    |пяти
    |шести
    |семи
    |восьми
    |девяти
    |десяти
    |одинадцати
    |двенадцати
    |тринадцати
    |четырнадцати
    |пятнадцати
    |шестадцати
    |семнадцати
    |восемнадцати
    |девятнадцати";
    Если СтрДлина(Строка(Число))>2 Тогда
        Возврат "";
    ИначеЕсли СтрДлина(Строка(Число))=1 ИЛИ Число < 20 Тогда
    ВОзврат СтрПолучитьСтроку(Единицы, Число);      
    КонецЕсли;
    //Двузначное число
    Десятки = " двадцати
    |тридцати
    |сорока
    |пятидесяти
    |шестидесяти
    |семидесяти
    |восьмидесяти
    |девяноста";
    ДесяткиЧисла = Сред(Строка(Число),1,1);
     ДесяткиПрописью = СТрПолучитьСтроку(Десятки,ДесяткиЧисла-1);
     ЕдиницыЧисла = Сред(Строка(Число),2,1);
     ЕдиницыПрописью = СТрПолучитьСтроку(Единицы,ЕдиницыЧисла);
     Возврат ДесяткиПрописью+" "+ЕдиницыПрописью;
 КонецФункции