текстовое значение месяца, перевести в числовое

[segail]

Здравствуйте.
Как при выполнении условия перевести текстовое значение месяца ячейки Sheets("Отчет").Cells(i, 27) в числовое?

Если меньше текущего месяца.

If Sheets("Отчет").Cells(i, 27) < Month(Date) Then

[EducatedFool]

Sub test()
    месяц = "апрель"
    номерМесяца = Month(CDate("1 " & месяц))
    MsgBox номерМесяца
End Sub

В вашем случае будет так:

If Month(CDate("1 " & Sheets("Отчет").Cells(i, 27))) < Month(Date) Then

[doober]

If Convert( Sheets("Отчет").Cells(i, 27) )< Month(Date) Then

Public Function Convert(mon As String) As Byte
Dim a As Byte
mon = LCase(mon)
Select Case mon
Case "январь": a = 1: Case "февраль": a = 2: Case "март": a = 3
Case "апрель": a = 4: Case "май": a = 5: Case "июнь": a = 6
Case "июль": a = 7: Case "август": a = 8: Case "сентябрь": a = 9
Case "октябрь": a = 10: Case "ноябрь": a = 11: Case "декабрь""a = 12"
End Select
Convert = a
End Function

[doober]

Сообщение от EducatedFool

Sub test()
    месяц = "апрель"
    номерМесяца = Month(CDate("1 " & месяц))
    MsgBox номерМесяца
End Sub

PS.Вот лохонулся,писал столько и не сообразил,что так можно