codice:
dDataIniziale=cDate(giorno&"/"&mese&"/"&anno)
dDataFinale=DateAdd("d",32,dDataIniziale)
dDataFinale=dDataFinale-Day(dDataFinale)
In questo modo ti calcola correttamente anche i mesi anomali (bisestile ecc. ecc.)