Как преобразовать "17 лет 11 месяцев 9 дней" в месяца и дни???

[axell_pnz]

сабж! Помогите решить данный затык!

[EducatedFool]

Исходные данные в каком виде? Текстовая строка?

Надо сделать формулой, или макросом?
Куда поместить результат?
Много таких строк обрабатывать, или только одну?

[axell_pnz]

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

Исходные данные в каком виде? Текстовая строка?

Надо сделать формулой, или макросом?
Куда поместить результат?
Много таких строк обрабатывать, или только одну?

Да извините что недал такую информацию
Данные в таком виде как в заголовке темы "26 лет 5 месяцев 24 дня" тип данных строка. Чем делать даже и не знаю, думаю что чем удобнее.
Результат желательно поместить с следующей колонки, строк много около 800!

[SAS888]

И еще. В какой период были эти 17 лет и т.д. Я имею ввиду, что нужно еще учитывать високосные года.

[axell_pnz]

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

И еще. В какой период были эти 17 лет и т.д. Я имею ввиду, что нужно еще учитывать високосные года.

не стоит нужно просто года перевести в месяца и а дни так остануться потому что выгрузка уже учитывала високосные года, запись хочется получить в виде МММ/ДД

[EducatedFool]

Можно использовать простейшую пользовательскую функцию:

Function Число(ByRef cell As Range, Позиция As Integer) As Long
    Число = Val(Split(cell.Text, " ")(Позиция * 2 - 2))
End Function

Формулы будут иметь такой вид:

  Ячейка: B1      Формула  (стиль A1):   =Число($A1;1)
                  Формула  (стиль R1C1): =Число(RC1;1)

  Ячейка: C1      Формула  (стиль A1):   =Число($A1;2)
                  Формула  (стиль R1C1): =Число(RC1;2)

  Ячейка: D1      Формула  (стиль A1):   =Число($A1;3)
                  Формула  (стиль R1C1): =Число(RC1;3)

Пример файла с формулами:

[EducatedFool]

Немного неправильно понял задание.

Вот так будет верно:



Формулы:

  Ячейка: B1      Формула  (стиль A1):   =КоличествоДней($A1)
                  Формула  (стиль R1C1): =КоличествоДней(RC1)

Функция:

Function КоличествоДней(ByRef cell As Range) As String
    m = Val(Split(cell.Text, " ")(0)) * 12 + Val(Split(cell.Text, " ")(2))
    d = Val(Split(cell.Text, " ")(4))
    КоличествоДней = m & "/" & d
End Function

Если обязателен формат вывода МММ/ДД, то можно использовать такой вариант:

Function КоличествоДней(ByRef cell As Range) As String
    m = Val(Split(cell.Text, " ")(0)) * 12 + Val(Split(cell.Text, " ")(2))
    d = Val(Split(cell.Text, " ")(4))
    КоличествоДней = Format(m, "000") & "/" & Format(d, "00")
End Function

[axell_pnz]

Спасибо тебе большое все получилось в лучшем виде!!!!