Per calcolare la data di fine mese:
codice:
dDataIniziale=cDate(giorno&"/"&mese&"/"&anno)
dDataFinale=DateAdd("d",32,dDataIniziale)
dDataFinale=dDataFinale-Day(dDataFinale)