Текущий месяц в текстовом формате

[segail]

Здравствуйте.
Как сделать, чтобы вывести текущий месяц в текстовом формате. И чтобы текст был строчный.
TextBox= Format(Date, "mm")

[doober]

TextBox1 = Format(Date, "MMMM")

[segail]

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

TextBox1 = Format(Date, "MMMM")

А как текст cделать полностью строчным?
декабрь

[EducatedFool]

TextBox1 = lcase(Format(Date, "MMMM"))

или так

TextBox1 = Format(Format(Date, "MMMM"), "<")

[segail]

А если создать условие для месяца, больше или меньше текущего месяца.
Например, для даты это будет выглядеть так:
If CDate(TextBox.Value) <> Date Then

а как должно писаться для месяца, если в TextBox месяц в текстовом формате.
If CDate(TextBox.Value) <> (Date = "MMMM") Then

[doober]

У вас в текст боксе не месяц в текстовом формате,а просто строка Декабрь.
Делайте свою функцию,которая распознает это слово,идентифицирует с числом 12.

Дата хранится в формате DOUBLE (4623,23452 ) .но не в строке.
либо так храните дату,а смотрите на месяц

TextBox1.Tag = Date
TextBox1.Text = LCase(Format(Date, "MMMM"))

[segail]

Я храню дату так…
TextBox.Value = Format(Date, "dd.mm.yyyy")

[doober]

Юзайте кнопки на форме и свойства контролов

[segail]

Ну, я понял…
Форматирование даты TextBox2.Text в месяц.
Не пойму что такое Tag?
Так нельзя?

TextBox1.Text = TextBox2.Text
TextBox1.Text = LCase(Format(TextBox1.Text, "MMMM"))

___________________________________ ____________________________
Написал условие на выбор месяца. По условию можно выбрать текущий и прошедший месяц.
Но не знаю, как проверить, если выбрать месяц с опережение по отношению к текущему (так как на дворе последний месяц и он текущий)
Правильно ли условие?

[doober]

 Следующий месяц=Com_mz.List(Com_mz.ListIndex, 1) 
Private Sub UserForm_Initialize()
    
    Com_mz.AddItem "январь"
    Com_mz.AddItem "февраль"
    Com_mz.AddItem "март"
    Com_mz.AddItem "апрель"
    Com_mz.AddItem "май"
    Com_mz.AddItem "июнь"
    Com_mz.AddItem "июль"
    Com_mz.AddItem "август"
    Com_mz.AddItem "сентябрь"
    Com_mz.AddItem "октябрь"
    Com_mz.AddItem "ноябрь"
    Com_mz.AddItem "декабрь"
    
    Com_mz.List(0, 1) = 2
    Com_mz.List(1, 1) = 3
    Com_mz.List(2, 1) = 4
    Com_mz.List(3, 1) = 5
    Com_mz.List(4, 1) = 6
    Com_mz.List(5, 1) = 7
    Com_mz.List(6, 1) = 8
    Com_mz.List(7, 1) = 9
    Com_mz.List(8, 1) = 10
    Com_mz.List(9, 1) = 11
    Com_mz.List(10, 1) = 12
    Com_mz.List(11, 1) = 1
    
End Sub