Averiguar días de un mes

[xavi]

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.

Código [Seleccionar] Expandir


Private Function DiasMes(ByVal Mes As Long, ByVal Año As Long) As Long
    DiasMes = Day(DateSerial(Año, Mes + 1, 0))
End Function