Issues with excess months in a 9 months period

[USA_kker]

Hi all,

I'm struggling with this table generating an additional month 4-9 for 2022 in October

Please have a look at my code, as I fail to see the issue here.



Dim Months, Years, Monthss, Yearss, Monthsss, Yearsss As String

'Find next month from today with 2 digit month number
If Month(Now) = 12 Then
Months = "01"
Years = Year(Now) + 1
ElseIf Month(Now) < 9 Then
Months = "0" & (Month(Now) + 1)
Years = Year(Now)
Else
Months = Month(Now) + 1
Years = Year(Now)
End If

'Find month an year for +1, +3 and +6 months
If Months = "12" Then
Monthss = "02"
Yearss = Years + 1
Monthsss = "05"
Yearsss = Years + 1
ElseIf Months = "11" Then
Monthss = "01"
Yearss = Years + 1
Monthsss = "04"
Yearsss = Years + 1
ElseIf Months = "10" Then
Monthss = "12"
Yearss = Years
Monthsss = "03"
Yearsss = Years + 1
ElseIf Months = "09" Then
Monthss = "11"
Yearss = Years
Monthsss = "02"
Yearsss = Years + 1
ElseIf Months = "08" Then
Monthss = "10"
Yearss = Years
Monthsss = "01"
Yearsss = Years + 1
ElseIf Months = "07" Then
Monthss = "09"
Yearss = Years
Monthsss = "12"
Yearsss = Years
ElseIf Months = "06" Then
Monthss = "08"
Yearss = Years
Monthsss = "11"
Yearsss = Years
ElseIf Months = "05" Then
Monthss = "07"
Yearss = Years
Monthsss = "10"
Yearsss = Years
ElseIf Months = "04" Then
Monthss = "06"
Yearss = Years
Monthsss = "09"
Yearsss = Years
ElseIf Months = "03" Then
Monthss = "05"
Yearss = Years
Monthsss = "08"
Yearsss = Years
ElseIf Months = "02" Then
Monthss = "04"
Yearss = Years
Monthsss = "07"
Yearsss = Years
ElseIf Months = "01" Then
Monthss = "03"
Yearss = Years
Monthsss = "06"
Yearsss = Years
End If

 

[bebo021999]

Why not using DateAdd, to get real date from Now +1,3,6 months first, then get month and year later?

Option Explicit
Sub test()
Dim Months, Years, Monthss, Yearss, Monthsss, Yearsss As String
Months = Month(DateAdd("m", 1, Now)) ' plus 1 month
Years = Year(DateAdd("m", 1, Now)) ' plus 1 month
Monthss = Month(DateAdd("m", 3, Now)) ' plus 3 months
Yearss = Year(DateAdd("m", 3, Now)) ' plus 3 months
Monthsss = Month(DateAdd("m", 6, Now)) ' plus 6 months
Yearsss = Year(DateAdd("m", 6, Now)) ' plus 6 months
End Sub