Dim intI As Integer
    
    For intI =  1  To  4 
        If IsDate(Range("A" & intI)) Then
            Range("A" & intI).Offset( 0 ,  1 ) = "Дата"
        Else
            Range("A" & intI).Offset( 0 ,  1 ) = "Не дата"
        End If
    Next

    Dim intI As Integer
    
    For intI =  1  To  4 
        If IsDate(Range("A" & intI)) Then
            Range("A" & intI).Offset( 0 ,  1 ) = "Дата"
        Else
            Range("A" & intI).Offset( 0 ,  1 ) = "Не дата"
        End If
    Next

Public Function DateConvert(amdate As String) As String
Dim strTemp As String
    strTemp = Mid$(amdate,  4 ,  2 ) & "/" & Left$(amdate,  2 ) & "/" & Right$(amdate,  2 )
    If IsDate(strTemp) Then
        DateConvert = strTemp
    Else
        DateConvert = "неправильный формат"
    End If
   'Debug.Assert IsDate(strTemp)

End Function

?IsDate(Range("A1"))
True

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы