Otra vez yo.

Muchas veces requerimos saber si un mes tiene 28, 29, 30 o 31 días. Para
esto el siguiente procedimiento les podrá ayudar (Eso espero)

' Parámetros: iAno = Año del mes, iMes = Mes del Que se desea averiguar el
Número de días
'
Public Function fiDiasDelMes(ByVal iAno As Integer, ByVal iMes As Integer)
As Integer
   fiDiasDelMes = Day(DateSerial(iAno, iMes + 1, 0))
End Function

Suerte,

Guillermo Edo. Bolívar G.
Windows Solutions Ltda.
Santafé de Bogotá, D.C.