ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Leap year indicator (https://www.excelbanter.com/excel-worksheet-functions/89487-leap-year-indicator.html)

Robert

Leap year indicator
 
Is there a function to indicate if the YEAR of a given date is a leap year.
eg. 21 Mar 2004 = 1
21 Mar 2003 = 0
Thank you
--
Robert

Peo Sjoblom

Leap year indicator
 
One way

=--(DAY(DATE(YEAR(A1),3,0))=29)

assuming the date starts in A1 copy down

--

Regards,

Peo Sjoblom

Excel 95 - Excel 2007
Northwest Excel Solutions
www.nwexcelsolutions.com
"It is a good thing to follow the first law of holes;
if you are in one stop digging." Lord Healey


"Robert" wrote in message
...
Is there a function to indicate if the YEAR of a given date is a leap
year.
eg. 21 Mar 2004 = 1
21 Mar 2003 = 0
Thank you
--
Robert




Robert

Leap year indicator
 

=IF(((YEAR(D2)/4)-(INT(YEAR(D2)/4)))0,1,0)
--
Robert




Peo Sjoblom

Leap year indicator
 
But that's the opposite to what you posted

21 Mar 2004 = 1
21 Mar 2003 = 0

--

Regards,

Peo Sjoblom

Excel 95 - Excel 2007
Northwest Excel Solutions
www.nwexcelsolutions.com
"It is a good thing to follow the first law of holes;
if you are in one stop digging." Lord Healey


"Robert" wrote in message
...

=IF(((YEAR(D2)/4)-(INT(YEAR(D2)/4)))0,1,0)
--
Robert






Robert

Leap year indicator
 
Thanks Peo for pointing the mistake. In view of Article ID21436 in MS Help
and Support, I shall adopt yours.
--
Robert




David Biddulph

Leap year indicator
 
"Peo Sjoblom" wrote in message
...

"Robert" wrote in message
...

=IF(((YEAR(D2)/4)-(INT(YEAR(D2)/4)))0,1,0)


But that's the opposite to what you posted

21 Mar 2004 = 1
21 Mar 2003 = 0


And even having corrected that, the formula is wrong. 1600 and 2000 were
leap years, but 1700, 1800, and 1900 weren't and 2100 won't be.
--
David Biddulph




All times are GMT +1. The time now is 05:19 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com