Преобразовать цифры ИИН в дату рождения№

[Сырым]

Здравствуйте! Имеется ИИН(12 значный номер) в котором первые 6 цифр это дата рождения. К примеру 860526602942, то есть дата рождения 25.05.1986 г. Подскажите как преобразовать ? Нужна только дата.

[IgorGO]

=ПСТР(ИНН;5;2)
где, ИНН - собственно само значение ИНН "860526602942" или ссылка на ячейку, содержащую ИНН

[BigDaddy]

В ячейке А1 номер ИНН.
В ячейке А2 написать формулу
=ПСТР(A2,5,2)&"."&ПСТР(A2,3,2)&"."& ЛЕВСИМВ(A2,2)

[IgorGO]

=ПСТР(A2,5,2)&"."&ПСТР(A2,3,2)&"."& ЛЕВСИМВ(A2,2)

предварительно исправить три опечатки A2 на A1,
для ячейки А2 назначить формат "Д", увидите необходимый Вам День, но следует помнить, что в этом случае в ячейке находится ПОЛНАЯ ДАТА

[Volodshan]

Как вариант для полных данных (данные в D3) -

=ДАТА(19&ПСТР(D3;1;2);ПСТР(D3;3;2);ПСТР(D3;5;2))

[Сырым]

Спасибо всем! Выручили. На основе Ваших формул подкорректировал и сделал то что нужно

=ПСТР(А1;5;2)&"."&ПСТР(А1;3;2)&"."&"19"&ПСТР(А1;1;2)&" "&"г"&"."

[IgorGO]

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

[Aleksandr H.]

IgorGO, а как через RegExp сделать?

Function ReplaceFirst(txt As String) As String
  With CreateObject("VBScript.RegExp")
    .Pattern = "^(\d{2})(\d{2})(\d{2})": .Global = True
     ReplaceComma2DotInNumbersOnly = .Replace(txt, "$3.$2.$1")
  End With
End Function