надо чтоб число q было равно месяцу(словами)

[мария2507]

в Cells(1,1) имеется дата вида 22.04.2010
необходимо сделать так, чтоб число q было равно месяцу(словами) даты из этой ячейки (т.е. тут q=апрель)

q = MonthName(Month(Cells(1, 1)))-не работает(((

а еще мне надо сравнить есть ли этот месяц в списке, мне список делать месяцев с большой или маленькой буквы?? или это не важно??

[андей]

q = format(Month(Cells(1, 1)),"MMMM")

[Igor67]

Можно так

Sub Макрос1()

Dim mes As Integer, q As String

mes = Format(CDate(Cells(4, 1)), "m") * 1
q = WorksheetFunction.Choose(mes, "январь", "февраль", "март", "апрель")

End Sub
Допишите названия месяцев до декабря, а то мне лениво... Вдруг не подойдет.
А про сравнение - зависит как Вы будете сравнивать. Но ведь есть еще UCase(), переводите все в верхний регистр для чистоты эксперимента

[SAS888]

q = MonthName(Month(Cells(1, 1)))-не работает

Почему? Какой у Вас Excel? Может ячейка Cells(1, 1) имеет формат отличный от "Дата"?
Про сравнение: может проще использовать Month(Cells(1, 1) и сравнивать с числами из списка (1...12)?

[мария2507]

дело в том, что у меня задание ваще заключается в том, чтоб с формы был введен месяц(через combobox) и надо проверить есть ли он в списке дат

[Dophin]

селект кейсом присваивайте переменной номер месяца
select case Combobox1.value
case "Январь"
m=1
case "Февраль"
m=2
и т.д.

а вот что значит "есть ли он в списке дат" не понял, но грубо
в цикле по ячейкам с датами
if month(cells(r,c))=m then
msgbox "есть такое"
end if

небольшая добавка, в ячейке А1 написано "Январь"
s = CDate("01." & Cells(1, 1) & ".2010") - присвоит переменной s значение даты 01.01.2010

[мария2507]

ни че не поняла(((
че ток делала ни че не выходит(((

посмотрите пожалуста!!

задание вощем такое: необходимо ввести даты с формы(UF4) начальную и конечную, а в label вывести результат, т.е. сколько дат находится в этом диапозоне

[Dophin]

названия месяцев это не даты, в нашем мире дата состоит из дня, месяца и года.

[Dophin]

принял что раз выбран "апрель" то это апрель 2010

если даты стоят "май" и "апрель" то считает
с 01.04.2010 (включительно) по 01.06.2010 (не включительно)