=ДАТАЗНАЧ(ПОДСТАВИТЬ(ЛЕВСИМВ(A2;ПОИСК(" ";A2)+3)&ПСТР(A2;ПОИСК(" ";A2;4);5);"мая";"май"))
Function toDate(str As String) As Date toDate = CDate(Split(str, "г.")(0)) End Function