פלט לדוגמא:
?NextPaymentDay(#15/4/2021#) 01/05/2021

אם כבר תביא דוגמא שתמחיש את מה שעשית (בדגש על הדוגמה ש @לומד-ומתלמד מצא - [למי שלא הבין: יש חסרון בדוגמא ההיא, כשהחשבונית היא בחודש ה12 - לפי הדוגמא ההיא התאריך שתקבל זה "01/01/2020"]).

?NextPaymentDay(#15/12/2021#)
01/01/2022

הנה פונקציה שעושה את הכל:

Public Function NextPaymentDay(inDate As Date) As Date
    Dim outputYear As Integer
    Dim outputMonth As Integer
    
    outputYear = Year(inDate)
    outputMonth = Month(inDate) + 1
    
    ' If it is next year, increase year and set month to 1
    If outputMonth = 13 Then
        outputMonth = 1
        outputYear = outputYear + 1
    End If
    NextPaymentDay = DateSerial(outputYear, outputMonth, 1)
End Function

פלט לדוגמא:

?NextPaymentDay(#15/4/2021#)
01/05/2021