Capturar valores

[seba123neo]

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.