Конференция VBStreets

**Чудик** » 23.08.2005 (Вт) 14:37

Глупый наверное вопрос, но есть ли функция, которая название месяца прописью переводит в цифру( типа Январь в 1, Февраль в 2)?

**Konst_One** » 23.08.2005 (Вт) 14:43

сам напиши

**GSerg** » 23.08.2005 (Вт) 14:44

Choose(s, "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")

**uhm** » 23.08.2005 (Вт) 14:44

По-моему, нет, но можно написать один простой Select Case.

**uhm** » 23.08.2005 (Вт) 14:44

**uhm** » 23.08.2005 (Вт) 14:45

GSerg, мимо, кстати!

Наоборот нужно.

**GSerg** » 23.08.2005 (Вт) 14:45

Да, я понял уже

**Чудик** » 23.08.2005 (Вт) 14:57

Жаль, что наоборот получается! Придется через Select. Хотел, чтоб более наглядней было ....

**GSerg** » 23.08.2005 (Вт) 15:08

Коллекцию Months сделай, потом к ней обращайся: months("Январь")

**Чудик** » 23.08.2005 (Вт) 15:30

Ща попробую.

**Ennor** » 23.08.2005 (Вт) 15:51

Да, сколько ни рыл, а так и не нашел системных приблуд для этого дела. Зато раскопал очень удобное обратное преобразование:

Это лучше, чем монструозный Switch().
Используя их, можно составить эту твою коллекцию, причем она будет гарантированно правильно локализована

.

**alibek** » 23.08.2005 (Вт) 16:10

Некоторые делают так:
MsgBox Month(CDate("01 " & strMonth & " 2001"))
но мне такое не нравится.

Месяц в цифру