Numero de dias en un mes y bisiesto!!!!!!!

[Skalitiko]

Puedes ocupar las funciones Day y Dateadd. Por ejemplo:

private sub Command1_Click()
Dim F as date
dim dia as byte
f=format(#01/01/2005#,"Short Date") ' Seteo la fecha al primer día del mes del cual quiero saber la canridad de días
f=DateAdd("M",1,F) ' le agrego un mes a la fecha para que quede en 01/02/2005
f=DateAdd("d",-1,f)' Le quito un día a la fecha para que me de el último día del mes del cual quiero saber la cantidad de días
dia = Day(f)' extraigo el día de la fecha
msgbox "El mes " & Month(f) & ", tiene " & dia & " días"

End Sub