Para este ejemplo, vamos a utilizar la función IsDate. Esta función devuelve True si el parámetro que se le pasa es una fecha válida en Microsoft Windows. El rango de fechas válidas para este sistema operativo va desde el 1 de enero del año 100 hasta el 31 de diciembre del año 9999.

Para nuestra función, simplemente preguntamos si el 29 de febrero del año que queremos verificar es fecha o no.

Public Function EsBisiesto(dtFecha As Date) As Boolean
   ' Preguntar por el 29 de febrero
   EsBisiesto = IsDate(Year(dtFecha) & "/02/29")
End Function