Display all next 20 years leap year vba

[vbvba]

Hi Guys,

I would like to know how to print next 20 leap years in vba program

I have a function to find leap year as below, but how to print the years in excel A column can you help me ?

Public Function isLeapYear()


' returns FALSE if not Leap Year, TRUE if Leap Year
isLeapYear = (Month(DateSerial(Yr, 2, 29)) = 2)




End Function

 

[Rick Rothstein]

Speed-wise, faster than 7000 calculations.

My macro takes approximately 3/100 of a second to execute, which is some 10 times faster than the "blink of an eye", so I am not sure speed would (should) be an issue.

Many of us of us will not be around for the next 20 leap years.

I am kind of hoping I will be. Of course if I am, I will more than likely have the distinction of being the oldest human being at nearly 149 years old. Yes, I know... unlikely... but I am holding out hope.

 

[John Tron]

Hello,

Thank you very much for putting this out there, it is extremely useful to see working VBA when trying to get better at it. Would you be able to tell me how to alter this code if I wanted to input the starting year as opposed to it automatically starting now (so I could start in 1923 for example?)

Thank you again for your help, I am just starting to get into VBA and this is a great resource.

JT

 

[John Tron]

Is there any easy way to do this if the goal is to able to input the starting year as opposed to having the default (current year)?