¿Cuantos dias hay en un mes?

[ElAprendiz]

<%' mostrar el ultimo dia de un mes
Function LastDayOfMonth(iMonth, iYear)
NextMonth = DateAdd("m", 1, DateSerial(iYear, iMonth, "01"))
LastDayOfMonth = Day(DateAdd("d", -1, NextMonth))
End Function
%>

Ultimo día del mes Febrero de 2000: <%=LastDayOfMonth(2,2000)%>

Extraido de http://www.gamarod.com.ar

saludos