Formula per trovare i giorni di un mese

[GHz]

Raga c'è qualuno che sa la formula per trovare quanti giorni ha un mese di un determinato anno?

Si ok, faccio un select case sul mese, cmq come faccio a sapere se un anno è bisestile? (formula rulez! )

mi serve per un programmino....ciao e grazie!

GHz!

[tas]

In VB6?

Public Function Days(y As Integer, m As Integer) As Integer
   Days = Day(DateSerial(y, m + 1, 0))
End Function

[GHz]

forte sta funzione dateserial....avevo sempre usato CDate!

Cmq perchè va messo m+1???

Ciao e grazie,
GHz!

[tas]

E' una specie di trucchetto

Partendo dall'anno e mese passati con i parametri, con DateSerial creo una data con:
year = y
month = m + 1 (cioè il mese seguente)
day = 0 (cioè il giorno precedente al giorno 1)
In questo modo ho determinato l'ultimo giorno del mese, da qui si estrae facilmente il giorno con Day()

[GHz]

Ingegnosissimo il trucchetto! Grazie tas!

[DarkSiDE]

Originally posted by "tas"

E' una specie di trucchetto

Partendo dall'anno e mese passati con i parametri, con DateSerial creo una data con:
year = y
month = m + 1 (cioè il mese seguente)
day = 0 (cioè il giorno precedente al giorno 1)
In questo modo ho determinato l'ultimo giorno del mese, da qui si estrae facilmente il giorno con Day()

nn ho capito il perchè del +1, precisamente dateserial cosa restituisce... vado a guardare la guida