Денис Б.Или нужна функция, которая безошибочно (вне зависимости от версий Эксель, языка, настроек обработки дат в Винде) определяет, что в ячейке находится имеенно дата.Функция Ч в этом не поможет - она не различает дату и число.
IsDate() не различает дату и текст, представляющий дату.
Используйте VarType() или TypeName(), первая быстрее:
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub bb()
[a1] = Date 'дата
[a2] = CLng(Date) 'число
[a3] = CStr(Date) 'текст
[b1:b3].Formula = "=N(A1)"
Debug.Print IsDate([a1].Value), TypeName([a1].Value), VarType([a1].Value) = vbDate
Debug.Print IsDate([a2].Value), TypeName([a2].Value), VarType([a2].Value) = vbDate
Debug.Print IsDate([a3].Value), TypeName([a3].Value), VarType([a3].Value) = vbDate
End Sub
