month(date)

[Lball]

Current=month(date)
Why doesn't this calculate as 8?

Instead when i msgbox it, it returns value 1/7/1900

 

[VoG]

This returns 8 at the date of posting

Sub etest()
Dim Current As Long
Current = Month(Date)
MsgBox Current
End Sub

 

[Joe4]

Format Current as Long instead of Date.

 

[xld]

Format the cell as General, not as Date

 

[Lball]

Oh ok, yeah i had it as date. Now it works, thanks. What is different about long that makes it work?

 

[Joe4]

Dates are stored as numbers, specifically the number of days since 1/0/1900, I think. So you value was really correctly returning the value of 8, formatted as a date.

 

[Lball]

oh gotcha, hadn't thought of it that way. Thanks again for the help