Поиск даты в тексте

[Even]

Морозного всем утра. Подскажите пожалуйста. Можно ли определить дату в тексте. Например, если в ячейки написано "Сегодня 30.01.2012 ..." и т.д. То "Msgbox" выдаёт только "30.01.2012". В тексте точно только одна дата. Заранее огромное ...

[Serge 007]

"Сегодня 30.01.2012 ..." в ячейке А1:

=ПСТР(A1;ПОИСК("??.??.????";A1);10)

[Even]

Надо через VBA, и что бы отображал дату, а не искал её по критериям.

[IgorGO]

Function DateIn(ByVal s As String) As Date
  Dim p As Long
  If Not s Like "*#.*#.*##*" Then DateIn = 0: Exit Function
  p = WorksheetFunction.Search("?.*?.*??", s) - 1
  s = Trim(Mid(s, p, 10))
  Do While Not IsDate(s): s = Left(s, Len(s) - 1): Loop
  DateIn = CDate(s)
End Function

[Serge 007]

Игорь,

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

Надо что бы отображал дату, а не искал её по критериям.

А у тебя поиск Search("?.*?.*??"), да ещё и функцией листа (WorksheetFunction)

ЗЫ А надо - силой мысли

[Even]

Спасибо, всем большое. У меня всё-таки получилось так...

Dim a
Dim i
Dim clls
clls = Cells(1, 1)
For i = 1 To Len(clls)
If IsNumeric(Right((Left(clls, i)), 1)) = True Then
For a = 1 To 15
If IsDate(Right((Left(clls, i + a - 1)), a)) = True Then
MsgBox (CDate(Right((Left(clls, i + a - 1)), a)))
Exit Sub
End If
Next a
Exit Sub
End If
Next i

End Sub