Function TextDate(sDate) 
      Dim aMonth 
      aMonth=Array("января","февраля","марта", _
                    "апреля","мая","июня", _
                    "июля","августа","сентября", _
                    "октября","ноября","декабря")
      TextDate=""
      If IsDate(sDate) Then TextDate=Day(sDate) & " " _
                                    & aMonth(Month(sDate)-1) & " " _
                                    & Year(sDate) & " г."
End Function