Преобразование текст. формата в дату

[oleg_sh]

Друзья, помогите, пожалуйста.

В таблице,
Дата в Столбике "E" записана в текстовом формате (например, 03/2011)
Как преобразовать из него в нормальный формат даты или общий- 40603?
А то расчёты (по датам) делать невозможно
Пример стобик G и H

[vikttur]

=ДАТА(ПРАВСИМВ(E1;4);ЛЕВСИМВ(E1;2);1)

[oleg_sh]

Огромное спасибо!
Всё работает!!!

[kuklp]

Вариант на месте:

Public Sub www()
Dim r As Range
Set r = Range([e1], [e1].End(xlDown))
    With r
        .Formula = Evaluate("""1.""&" & .Address)
        .Replace What:="/", Replacement:=".", LookAt:=xlPart
           [K12].Copy
        .PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
'        .NumberFormat = "m/d/yyyy"
    End With: Application.CutCopyMode = False
End Sub

[oleg_sh]

Спасибо!
С макросом тоже прикольно!

[oleg_sh]

Извините, но есть в догонку по теме ещё вопрос.
А из номера прибора можно сделать его дату выпуска?

Примеры номеров. Первые 4 цифры - год, затем № месяца.

20061211183LF
20070606988LF
20071002993LF
20080600997LF
20080800960LF
20080804242LF
20081004017LF
20090300540LF

[kuklp]

Дык, формула Виктора чем не подходит? Заменить
=ДАТА(ЛЕВСИМВ(E1;4);ПСТР(E1;5;2);1)

[nilem]

----------

[oleg_sh]

Здорово по номеру прибора получилось!
Буду разбираться с этой замечательной формулой...