View Single Post
  #4 (permalink)  
Old March 6th, 2004, 02:52 PM
Birger Birger is offline
Friend of Wrox
 
Join Date: Jun 2003
Location: , , Denmark.
Posts: 150
Thanks: 0
Thanked 0 Times in 0 Posts
Default

If the only purpose is to determine whether CURRENT year is a leap year, isn't it sufficient to use this:

Sub LeapYear()

If Year(Now) Mod 4 = 0 Then
    MsgBox ("It's a leap year")
Else
    MsgBox ("Nope")
End If

End Sub