Hola,el ultimo dia del Mes:
Código:
Private Sub Form_Load()
MsgBox Dias(3, 2008)
End Sub
Private Function Dias(ByVal Mes As Long, ByVal Año As Long) As Long
Dias = Day(DateSerial(Año, Mes + 1, 0))
End Function
cantidad de dias de un mes:
Código:
Private Sub Form_Load()
MsgBox Dias(3, 2008)
End Sub
Function Dias(ByVal Mes As Long, ByVal Año As Long) As Long
Dias = Day(DateSerial(Año, Mes + 1, 0))
End Function
Function Bisiesto(ByVal Año As Long) As Boolean
Bisiesto = Dias(2, Año) = 29
End Function
saludos.