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年会出现一次闰年，但有时间隔会达到8年. 这是由于每四年一天的传统闰日实际上对日历的补偿稍微有点过度. 因此，当这些年份不能被400整除时，每100年就会跳过一个闰年:
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]