How do you find Leapyear in VBA?

function vba excel code-snippets
Lance Roberts picture Lance Roberts · Sep 24, 2008 · Viewed 20.8k times · Source

What is a good implementation of a IsLeapYear function in VBA?

Edit: I ran the if-then and the DateSerial implementation with iterations wrapped in a timer, and the DateSerial was quicker on the average by 1-2 ms (5 runs of 300 iterations, with 1 average cell worksheet formula also working).

Answer

Lance Roberts picture Lance Roberts · Sep 24, 2008 
Public Function isLeapYear(Yr As Integer) As Boolean  

    ' returns FALSE if not Leap Year, TRUE if Leap Year  

    isLeapYear = (Month(DateSerial(Yr, 2, 29)) = 2)  

End Function

I originally got this function from Chip Pearson's great Excel site.

Pearson's site

Related questions

How to return a result from a VBA function

How do I return a result from a function? For example: Public Function test() As Integer return 1 End Function This gives a compile error. How do I make this function return an integer?

Read More
What is the equivalent of "!=" in Excel VBA?

The problem is that != does not work as a function in excel vba. I want to be able to use If strTest != "" Then instead of If strTest = "" Then Is there another approach to do this besides !=? My function to mimic != …

Read More
Does .Value = .Value act similar to Evaluate() function in VBA?

Consider the following snippet. It writes the same formula to two cells A1 and A2 Sub Main() With Range("A1") .Formula = "=1+1" End With With Range("A2") .Formula = "=1+1" .Value = .Value End With End Sub The second with block uses .Value = .Value …

Read More