devxlogo

Leap Year Rules

Leap Year Rules

One of the trickier parts of handling date values is dealing withleap years. Everyone knows that every fourth year is a leap yearin which February has 29 days instead of the typical 28. Whatis less known is that there are two more rules to check to determinewhether a given year is a leap year or not:

  • Years that are evenly divisible by 100 are not leapyears;
  • Years that are evenly divisible by 400 are leap years.

With that in mind, I wrote this function to test whether any

given year is a leap year:

 Function IsLeap (iYear As Integer) _        As Integer        'Set Default Value        IsLeap = False        'Check the 400 Year rule        If (iYear Mod 400 = 0) Then                IsLeap = True                GoTo IsLeap_Exit        End If        'Check the 100 Year rule        If (iYear Mod 100 = 0) Then        IsLeap = False        GoTo IsLeap_Exit        End If        'Check the 4 Year rule        If (iYear Mod 4 = 0) Then        IsLeap = True        Else        IsLeap = False        End IfIsLeap_Exit:End Function

(Note: This is the VB3 version. For VB4 substitute a Boolean returnvalue for the function.)

See also  5 Tips for Working With an Onsite Interpreter
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist