Q: using vba's MONTH

[John]

Why does this code return a value of "2005"? It needs to return "2004".
(range "a4" equals mar-13-2004)

With Range("a9")
If (Month(Range("a4") > 6)) Then
.Value = Year(Range("a4")) + 1
Else
.Value = Year(Range("a4"))
End If
End With

 

[Dave Hawley]

Hi John

You have your parenthesis wrong, change to


With Range("a9")
If Month(Range("a4")) > 6 Then
.Value = Year(Range("a4")) + 1
Else
.Value = Year(Range("a4"))
End If
End With

***** Posted via: http://www.ozgrid.com
Excel Templates, Training & Add-ins.
Free Excel Forum http://www.ozgrid.com/forum *****