Наверное, нет. 31 написание дня месяца - как же без поиска?

Месяц тоже нужно в число?  
Какой формат результата?

Для дня - захалявный словарик :)

=СУММПРОИЗВ(ЕЧИСЛО(ПОИСК({"пе":"вт":"тре":"четв":"пято":"шесто":"сед":"вось":"девятое":"дес":"оди":"две":"трин":"четы":"пятн":"шестн":"семн":"восе":"девятнад":"два":"трид"};A1))*{1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:30})

.

=--(ПОИСКПОЗ(2;1/ПОИСК({"":"пе":"вт":"тре":"четв":"пято":"шесто":"сед":"вось":"вято":"дес":"оди":"две":"трин":"четы":"пятн":"шестн":"семн":"восе":"вятн"};A1))-1+СУММ((ЛЕВСИМВ(A1;4)={"двад";"трид"})*{20;30})&"/"&ПОИСКПОЗ(2;1/ПОИСК({"ян":"ф":"мар":"ап":"мая":"юн":"юл":"ав":"сен":"ок":"но":"дек"};A1))&"/"&ПСТР(A1;ПОИСК(" го";A1)-4;4))  
 
Констант соответсвий нет, ищем только позицию

Еще вариант:  
=--(ПОИСКПОЗ(2;1/ПОИСК({"":"пе":"вт":"тре":"четв":"пято":"шесто":"сед":"вось":"вято":"дес":"оди":"две":"трин":"четы":"пятн":"шестн":"семн":"восе":"вятн"};A1))-1+СУММ((ЛЕВСИМВ(A1;4)={"двад";"трид"})*{20;30})&ПОДСТАВИТЬ(ПСТР(A1;ПОИСК(" ";A1;ПОИСК(" г";A1)-14);4);"мая";"май")&ПСТР(A1;ПОИСК(" г";A1)-5;5))  
 
всего то 302 знака, не так уж и длинно  
 
PS: Сергей, твоя формула из первого поста по нахождению месяца не корректно работает для числительных состоящих из двух слов, например, "двадцать первое сентября 2011 года"

{quote}{login=MCH}{date=23.02.2012 03:28}{thema=}{post}  
всего то 302 знака, не так уж и длинно  
{/post}{/quote}Я надеялся на 5-10 знаков ПСТР(дата;1;3), как месяц...

{quote}{login=ikki}{date=23.02.2012 04:03}{thema=на всякий случай )}{post}формулка покороче:  
{/post}{/quote}Чего же здесь короткого?

Саш, разве это:  
 
Option Base 1  
Function d(s As String) As Long  
-----------------------  
-----------------------  
-----------------------(еще 2 десятка строк)  
End Function  
 
коротко?

Сергей,    
0) в моем мозгу понятия "формула" и "реализация функции" существуют отдельно.  
1) безусловно, текст UDF гораздо длиннее, чем формула МСН.  
2) вполне возможно, UDF написана не лучшим образом, но правильный результат она дает.  
3) скорее всего, Михаил потратил на написание своей формулы меньше времени, чем я на свою UDF (хотя и не факт)  
4) что уж абслютно точно - я бы на написание такой формулы потратил времени в десятки раз больше, чем на UDF, причем не факт, что я вообще смог бы такую формулу создать, да и в результате не был бы уверен до самого конца.  
4а) я такой не один особенный.  
5) если задача разовая - то вариант с формулой от МСН, конечно, лучше. да и то... смотря кто использует эту формулу и смотря что в ней надо будет поправить, если такая необходимость возникнет.    
6) если же задача возникает периодически. да еще и в разных файлах... имхо, готовую UDF использовать проще.  
7) одному больше нравится арбуз, другому - свиной хрящик.  
8) формула (именно формула) короче. можно переназвать функцию, чтобы было понятней - например, ДАТАИЗТЕКСТА(), и всё равно это будет короче.  
9) пост назывался "на всякий случай" и, кроме того, там в конце еще и смайлик был.  
 
могу повторить этот смайлик:  
:) Сергей, спорить вообще не о чем. И - с праздником тебя! :)

UDF:  
 
Function Text2Date(txt$) As Date  
Dim i&, dn&, ms&, x  
For Each x In Split("пе вт тре четв пято шесто сед вось вято дес оди две трин четы пятн шестн семн восе вятн два трид")  
   i = i + 1: If i = 21 Then i = 30  
   If InStr(txt, x) Then dn = dn + i  
Next x  
i = 0  
For Each x In Split("ян ф мар ап мая юн юл ав сен ок но дек")  
   i = i + 1: If InStr(txt, x) Then ms = i: Exit For  
Next x  
Text2Date = DateSerial(Mid(txt, InStr(txt, " г") - 4, 4), ms, dn)  
 
End Function

Михаил, спасибо, но идея была в другом...  
Если она не реализуема, то и нет проблем, такую формулу я и сам напишу :-)

Но функция:  
функция("янв")=1 есть!  
Вот об этом и был вопрос.  
Всем спасибо, ответ я получил, тема закрыта.