Incrementare una Data di un Mese

Questa funzione incrementa una determinata data di un tot numero di mesi. Se la data iniziale è un fine mese ad esempio 31/10/2000 ricava automaticamente la fine del mese finale. Per esempio se il mese finale è Febbraio ricaverà 28 o 29 se bisestile, se il mese è Aprile ricaverà 30 etc.etc.

'*********************************************
'DataPartenza = è la data di partenza iniziale
'PiuMese = sono i mesi o il mese da aggiungere
'                  alla data di partenza iniziale
'*********************************************
Public Function AggiungiMese(DataPartenza As Date, PiuMese As Integer) As Date
AggiungiMese = Format(DateAdd("m", PiuMese, DataPartenza), "dd/mm/yyyy")
End Function

Testato su: Tutti i Sistemi operativi