Ricavare i numero di giorni nel mese

[lodo75]

C'è una funzione che mi dà il numero di giorni in un mese?
Esempio Giugno = 30 - Luglio = 31

[albis]

<%
function RestGGMonth(intMese,intAnno)
	dim dtData
	dtData = cdate("1/1/" & intAnno)
	dtData=DateAdd("m",intMese,dtData)
	dtData=DateAdd("d",-1,dtData)
	RestGGMonth=Day(dtData)
end function
Response.Write RestGGMonth(2,2004)
%>