Функция IsDate

Функция IsDate проверяет, является ли данное выражение корректной датой или временем. Функция обрабатывает данные любого типа без генерации ошибки. Но функция использует национальные системные установки дати и времени компьютера, поэтому "правильная" дата, полученная на одном компьютере, может оказаться некорректной на другом компьютере

Возвращает значение типа Boolean, показывающее, может ли значение выражения быть преобразовано в значение даты. Функция IsDate возвращает True, если выражение принадлежит к типу даты или допускает преобразование к допустимому значению даты; в противном случае возвращается False. В Microsoft Windows допустимыми являются даты в диапазоне от 1 января 100 г. до 31 декабря 9999 г.; другие операционные системы могут поддерживать другие диапазоны дат

Expression

Обязательный аргумент - выражение типа Variant, содержащее выражение даты или строковое выражение, распознаваемое как значение даты или времени

' Используем функцию IsDate
' для проверки, является ли год высокосным
' Для этого проверяем, существует ли 29 февраля

Dim MyYear is String
If IsDate("02/29/" & myYear) Then
MsgBox myYear & "- высокосный год"
Else
MsgBox myYear & "- невысокосный год"
End If