Buongiorno,
di seguito la funzione suggerita da Alex adattata alle mie esigenze:
Function CalcoloDataPagamento(pdatafattura As Date, pMesi As Integer, pGiorni As Integer, pUltGiorni As Integer, pFineMese As Boolean) As Date
Dim dt As Date
If pFineMese = True Then
dt = DateAdd("d", pGiorni, pdatafattura) 'Aggiungo i giorni
dt = DateAdd("m", pMesi, dt) 'Aggiungo i mesi
dt = DateSerial(Year(dt), Month(dt) + 1, 0) 'Calcolo il fine mese
dt = DateAdd("d", pUltGiorni, dt) 'Agggiungo gli ulteriori giorni al fine mese
Else
dt = DateAdd("d", pGiorni, pdatafattura) 'Aggiungo i giorni
dt = DateAdd("m", pMesi, dt) 'Aggiungo i mesi
dt = DateAdd("d", pUltGiorni, dt) 'Agggiungo gli ulteriori giorni
End If
CalcoloDataPagamento = dt 'Valorizzo la funzione
End Function
Poi sull'uscita dalla casella di selezione del metodo pagamento ho richiamato la funzione per valorizzare la casella della scadenza:
dataformffdatasuggerita = CalcoloDataPagamento(DATAffdatafattura, numformffmesipagamento, numformffgiornipagamento, numformffulteriorigiorni, flagformfffinemese)
Grazie mille per l'aiuto