HOLAS
YO TAMBIEN SOY NOOB ASI QUE TOY UNA MANO
TAMBIEN PODRIAS USAR ESTE CODIGO
Private Function Dias_M(Mes, Ano)
Select Case Mes
Case 1, 3, 5, 7, 8, 10, 12
Dias_m = 31
Case 4, 6, 9, 11
Dias_m = 30
Case 2
If IsDate("Febrero 29, " & ano) Then
Dias_m = 29
Else
Dias_m = 28
End If
End Select
End Function
CLARO ANTES DE INVOCARLO DAR VALORES A Mes, Ano
BYE BYE
