Как сделать вот такое:

[IgorA]

Здравствуйте все.
Подскажите в таком вопросе, я в ВБ только начинаю и пока не разобрался до конца.
есть строка в массиве и я ее разбиваю во временный массив так:
arr = Split(mass(i, n), " ", 3)
в arr(1) у меня получается название месяца (например так: "октября")
Как из названия перевести в цифры? т.е. из "октября" в 10 ?

[A.A.Z.]

Думаю, что единственный вариант - Select Case...
Select Case Arr(1)
Case "января", "январь" 'и т.п.
MonthNumber = 1
Case ...
...
End Select

[tyomitch]

На всякий случай, рассечь дату на компоненты очень просто:

Код: Выделить всё

Debug.Print Day(CDate("15 октября 2004"))
Debug.Print Month(CDate("15 октября 2004"))
Debug.Print Year(CDate("15 октября 2004"))


[tyomitch]

Думаю, что единственный вариант - Select Case...

Не единственный:

Код: Выделить всё

Debug.Print Switch(Arr(1) = "января", 1, Arr(1) = "февраля", 2, Arr(1) = "марта", 3)

Но Select Case быстрее.

[Sirik]

Да, но индекс и есть искомое число

[Ruslan Demidow]

Да, но индекс и есть искомое число

Для примера могу привести свою функцию, которая возвращает строку с датой отформатированной так как мне надо.
На входе тоже строка, но не стандартная: типа 10 oct 2004 12:11:54

Код: Выделить всё

Public Function GetDate(StringDate As String, strFormat As String) As String
    Dim intMonth As String
    Dim intDay As String
    Dim intYear As String
    Dim intTime As String
    Dim strTemp As String
    On Error GoTo ErrSub
    If Len(Trim$(strFormat)) = 0 Or Trim$(strFormat) = "0" Then
        GetDate = ""
        Exit Function
    End If
    intDay = Left$(StringDate, 2)
    intMonth = Mid$(StringDate, 4, 3)
    intYear = Mid$(StringDate, 8, 2)
    intTime = Mid$(StringDate, 12, 8)
   
    Select Case UCase$(intMonth)
        Case "JAN"
            intMonth = "01"
        Case "FEB"
            intMonth = "02"
        Case "MAR"
            intMonth = "03"
        Case "APR"
            intMonth = "04"
        Case "MAY"
            intMonth = "05"
        Case "JUN"
            intMonth = "06"
        Case "JUL"
            intMonth = "07"
        Case "AUG"
            intMonth = "08"
        Case "SEP"
            intMonth = "09"
        Case "OCT"
            intMonth = "10"
        Case "NOV"
            intMonth = "11"
        Case "DEC"
            intMonth = "12"
        Case "ЯНВ"
            intMonth = "01"
        Case "ФЕВ"
            intMonth = "02"
        Case "МАР"
            intMonth = "03"
        Case "АПР"
            intMonth = "04"
        Case "МАЙ"
            intMonth = "05"
        Case "ИЮН"
            intMonth = "06"
        Case "ИЮЛ"
            intMonth = "07"
        Case "АВГ"
            intMonth = "08"
        Case "СЕН"
            intMonth = "09"
        Case "ОКТ"
            intMonth = "10"
        Case "НОЯ"
            intMonth = "11"
        Case "ДЕК"
            intMonth = "12"
    End Select
        intDay = IIf(Not IsNumeric(intDay), intDay = "01", intDay)
        intMonth = IIf(Not IsNumeric(intMonth), intMonth = "01", intMonth)
        intYear = IIf(Not IsNumeric(intYear), intYear = "00", intYear)
        strTemp = intDay & "." & intMonth & "." & intYear & " " & intTime
        GetDate = Format(strTemp, strFormat, vbUseSystemDayOfWeek) ', vbUseSystem)
    Exit Function
ErrSub:
    GetDate = ""
End Function


Слишком растянуто, конечно, но....

[tyomitch]

Да, но индекс и есть искомое число

Ты внимательно прочитал мой пример?
Видимо, нет - там нет массивов, а значит, нет и индексов.

[Sirik]

Да, но индекс и есть искомое число

Ты внимательно прочитал мой пример?
Видимо, нет - там нет массивов, а значит, нет и индексов.

Я не про твой пример говорил

[tyomitch]

А про чей?
У AAZ тоже нет массивов.

[Sirik]

А про чей?
У AAZ тоже нет массивов.

Если следует такая команла arr = Split(mass(i, n), " ", 3), то это подразумевает что arr - есть массив, при нижним индекс = 0

[tyomitch]

Так-то так, но искомое число - совсем не индекс в этом массиве!
Arr(0) = "15"
Arr(1) = "октября"
Arr(2) = "2004"

А искомое число - 10. Так что ты чего-то не так понял.

[Sirik]

Так-то так, но искомое число - совсем не индекс в этом массиве!
Arr(0) = "15"
Arr(1) = "октября"
Arr(2) = "2004"

А искомое число - 10. Так что ты чего-то не так понял.

М-да. это наверное после вчерашнего (действительно что-то не допонял)

[IgorA]

Так-то так, но искомое число - совсем не индекс в этом массиве!
Arr(0) = "15"
Arr(1) = "октября"
Arr(2) = "2004"

А искомое число - 10. Так что ты чего-то не так понял.

М-да. это наверное после вчерашнего (действительно что-то не допонял)

Видно я плохо сформировал вопрос.
есть строка, берется из файла и режется в массив так:
arr = Split(mass(kolvo, novper), " ", 3)
число - arr(0)
месяц - arr(1)
Месяц в текстовом варианте, а мне его надо перевести в число, например "октября" перевести в 10

[tyomitch]

IgorA, прочитай первые три ответа - там это написано.

[IgorA]

Спасибо, просмотрел....

[Ennor]

...
есть строка в массиве и я ее разбиваю во временный массив так:
arr = Split(mass(i, n), " ", 3)
в arr(1) у меня получается название месяца (например так: "октября")
Как из названия перевести в цифры? т.е. из "октября" в 10 ?

Я бы сделал так: перед сплитом поставил бы конвертацию даты в нужный мне формат:

Код: Выделить всё

S = Format$(mass(i, n), "short date")

В результате получишь дату в виде "24.10.1999", причем, что самое главное, с учетом региональных настроек клиента. Если у него Хиджри-календарь, то месяцы не будут называться по русски, так что закладка в коде на строковые платформно-зависимые константы исчезнет.
Ну и останется тебе только из тех же региональных настроек вытянуть разделитель частей даты. Учти, кстати, что в общем случае этот разделитель будет занимать больше одного символа.