WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

閏年を求める

LeapYearQをDateDifferenceと一緒に使うことによって，閏年と閏年の間の期間を求めることができる．

1600年から2012年の間に起る閏年を求める：
Wolfram Language code: leapyears = Select[DateRange[{1600}, {2012}, "Year"], LeapYearQ[#]&]
閏年と閏年の間の期間を求める：
Wolfram Language code: Table[DateDifference[leapyears[[i]], leapyears[[i + 1]], "Year"], {i, 1, Length[leapyears] - 1}]//Union
閏年は通常4年ごとに起るが，８年ごとに起る場合もある．これは，４年ごとに起る通常の閏日は，実際には暦の不足分を少し過度に補うことになるからである．このため，100年ごとに400で割れない年の場合は閏年が飛ばされる：
Wolfram Language code: Table[DateDifference[leapyears[[i]], leapyears[[i + 1]], "Year"], {i, 1, Length[leapyears] - 1}]//Union
閏年と閏年の間が8年間になる年を求める：
Wolfram Language code: DeleteCases[Table[If[DateDifference[leapyears[[i]], leapyears[[i + 1]], "Year"] === {8, "Year"}, {leapyears[[i]], leapyears[[i + 1]]}], {i, 1, Length[leapyears] - 1}], Null]