Autor Tema: Averiguar días de un mes  (Leído 2659 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 214
Averiguar días de un mes
« en: Abril 14, 2012, 07:46:43 pm »
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]
Private Function DiasMes(ByVal Mes As Long, ByVal Año As Long) As Long
    DiasMes = Day(DateSerial(Año, Mes + 1, 0))
End Function