Здравствуйте, idnickin, Вы писали:

I>совсем забыл... работаем в Экселе...
Поигрался поигрался, вот что наформулил:

    With ThisWorkbook.ActiveSheet
        .Range("A1").Value = "апр.07"
        .Range("A4").Value = "8T3JHBKJD (2001) DKUJUNKJND D NCKJNCEKE"
        .Range("D4").Formula _
= "=IF(ISERR(FIND(""(19"",A4)),IF(ISERR(FIND(""(20"",A4))," _
& "FIND(""(20"",A4),MID(A4,FIND(""(20"",A4)+1,4))," _
& "MID(A4,FIND(""(19"",A4)+1,4))"
        .Range("F1").Formula = "=MID(A1,FIND(""."",A1,1)+1,255) & "" "" & LEFT(A1,FIND(""."",A1,1)-1) & "" ""& D4"
        .Range("D1").Formula = "=DATEVALUE(F1)"
        .Range("D2").Formula _
= "=DATEVALUE(MID(A1,FIND(""."",A1,1)+1,255) & """ _
& " "" & LEFT(A1,FIND(""."",A1,1)-1) & "" ""& IF(ISERR(FIND(""(19"",A4))," _
& "IF(ISERR(FIND(""(20"",A4)),FIND(""(20"",A4),MID(A4,FIND(""(20"",A4)+1,4))," _
& "MID(A4,FIND(""(19"",A4)+1,4)))"
        .Range("D1:D2").NumberFormat = "yyyy/mm/dd;@"
    End With

запусти макрос с открытым чистым листом.