Palabras clave: saber, averiguar, obtener, calcular, días, mes
Autor: Rubén Vigón
Extraído de: La web del Búho
Pregunta
¿Es posible saber cuantos días tiene un mes determinado de un año determinado. Obviamente va encaminado a saber si ese año fué bisiesto, ya que todos los meses tienen siempre los mismos días excepto febrero que varía cuando es bisiesto.
Private Function DiasMes(ByVal Mes As Long, ByVal Año As Long) As Long
DiasMes = Day(DateSerial(Año, Mes + 1, 0))
End Function