Форум программистов [Powered by Invision Power Board]

Код

Function monthXP(ByVal subMonthName) As String

   Dim oldMonthes(11) As String
   Dim newMonthes(11) As String
   Dim n As Integer
   
   oldMonthes(0) = "Январь"
   oldMonthes(1) = "Февраль"
   oldMonthes(2) = "Март"
   oldMonthes(3) = "Апрель"
   oldMonthes(4) = "Май"
   oldMonthes(5) = "Июнь"
   oldMonthes(6) = "Июль"
   oldMonthes(7) = "Август"
   oldMonthes(8) = "Сентябрь"
   oldMonthes(9) = "Октябрь"
   oldMonthes(10) = "Ноябрь"
   oldMonthes(11) = "Декабрь"
   
   newMonthes(0) = "января"
   newMonthes(1) = "февраля"
   newMonthes(2) = "марта"
   newMonthes(3) = "апреля"
   newMonthes(4) = "мая"
   newMonthes(5) = "июня"
   newMonthes(6) = "июля"
   newMonthes(7) = "августа"
   newMonthes(8) = "сентября"
   newMonthes(9) = "октября"
   newMonthes(10) = "ноября"
   newMonthes(11) = "декабря"
  
   monthXP = subMonthName ' а сл.,если в строке не будет "старого месяца" - вернем строку
   
   For n = 0 To 11
      If InStr(1, subMonthName, oldMonthes(n)) <> 0 Then
          monthXP = Replace(subMonthName, oldMonthes(n), newMonthes(n))
          Exit For
      End If
   Next
   
End Function


Sub TEST()
   Range("A1").Value = monthXP(Range("A1").Value) 'изменяем формат месяца в "А1" тек.книги
End Sub