What have you tried so far?
w00dy
Junior Poster in Training
70 posts since Jun 2005
Reputation Points: 11
Solved Threads: 2
Like this?
Dim Leap As Boolean
Sub FindLeapYear
Dim Year As Long
If Year/400 = Int(Year/400) Then
Leap = False
Exit Sub
End If
If Year/4 = Int(Year/4) Then
Leap = True
Else
Leap = False
End If
End Sub
always avoid complicated statements with too many brackets if you can
Give me a little more info about what you want to do in Q2
w00dy
Junior Poster in Training
70 posts since Jun 2005
Reputation Points: 11
Solved Threads: 2
Yes, Please Post your code so that we can take a look at it.
Comatose
Taboo Programmer
2,910 posts since Dec 2004
Reputation Points: 361
Solved Threads: 215