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()