Variable is not bevaing the way I think it should.

[Certified]

Can anyone explain why I get a result of zero?

Dim TheMonth As Integer
 Dim Theyear As Long
 Dim x As Integer



 Lastdate = Mainarray(Erow, 1) <---Date

 TheMonth = Month(Lastdate)
 Theyear = Year(Lastdate)


 For x = 1 To 6


    TheMonth = TheMonth + 1


    If TheMonth > 12 Then

[B]TheMonth = 1 And Theyear = Theyear + 1[/B]


    End If

When TheMonth variable is greater than 12, I want to set that variable to 1 (as in January); but when the code is ran the variable result is zero.

Why is it doing that?

 

[Joe4]

If you are just trying to add 6 months to some given date using VBA, you can easily use the DateAdd function to do that.
See: MS Excel: How to use the DATEADD Function (VBA)

 

[Scott T]

Change this

 [B]TheMonth = 1 And Theyear = Theyear + 1[/B]

To

[B]TheMonth = 1
Theyear = Theyear + 1[/B]