外语教研版:1850年到1950年有几个闰年？

闰年的算法:能被400整除，或者能被4整除而不能被100整除的年份。

一、手动算法：从1850后最近的一个能被4整除的年份即1852，到1950前最近的一个能被4整除的年份即1948，共间隔96年，除以4加1，等于25个，这表示所有能够整除4的年份。还要扣除能被100整除的年份，即除掉1900，剩24个。

二、用Excel来做个实例，新建一个工作簿，在Sheet1的a1到a101单元格填充1850到1950共101个数字，b1单元格输入公式“=IF(OR(MOD(A1,400)=0,AND(MOD(A1,4)=0,ABS(MOD(A1,100))>0)),"闰年","平年")”，b2到b101依据b1单元格向下填充即可，运算结果显示的是各年闰年、平年情况。进一步可以自动算出b1到b101单元格中“闰年”的个数，即在c1单元格输入数组公式“{=SUM(IF(B1:B101="闰年",1))}”，大括号不用输，按住<Ctrl>+<Shift>+<Enter>自动生成，计算结果为24（个闰年）。

三、还可以使用<工具>-<宏>-<Visual Basic编辑器>，双击左边的“Sheet1”对象，粘贴以下代码：
Sub 闰年函数()
Dim i As Integer, j As Integer
yearbegin = 1850
yearend = 1950
For i = yearbegin To yearend
If i Mod 400 = 0 Or (i Mod 4 = 0 And i Mod 100 <> 0) Then
j = j + 1
End If
Next i
MsgBox yearbegin & "年到" & yearend & "年共有闰年" & j & "个", vbOKOnly, "闰年个数"
End Sub
最后执行菜单<运行>-<运行子程序/用户窗口>。

24个,分别是1852
1856
1860
1864
1868
1872
1876
1880
1884
1888
1892
1896
1904
1908
1912
1916
1920
1924
1928
1932
1936
1940
1944
1948
你只要用日期除以4,是整数的就是闰年!
大于1850而离它最近的是1852,用它除以4等于463
小于1950而离它最近的是1948,用它除以4等于487
用487-463+1=25
但是按要求如果用年份能补100整除的,那就要把那个假冒的删掉!打假嘛
但是那个日子如果同时能被400整除,那么咱就冤枉它了,这样的年份如:2000
明白了不?

即从1852到1948有96/4+1个，除掉1900，共24个。算法看闰年的定义。

为什么除去1900年

24

x个.