Giorni di un mese

[ciucciatiilcalzino]

ciao a tutti
c'è qualche funzione che mi dice un determinato mese di un determinato anno da quanti giorni è formato?

ciao e grazie in anticipo

[GudFella]

	Function TrovaNumeroGiorni(mese, anno)
		select case mese
			case 2
			    if ((anno Mod 400 <> 0) And ((anno Mod 4) = 0)) Or (anno Mod 400 = 0) then
			        giorni = 29
			    else
			        giorni = 28
			    end If
			case 1, 3, 5, 7, 8, 10, 12
			    giorni = 31
			case else
			    giorni = 30
		end Select
		
		TrovaNumeroGiorni = giorni
	End Function

[ciucciatiilcalzino]

mille grazie