在公歷（格里歷）紀(jì)年中,有閏日的年份叫閏年,一般年份365天,閏年為366天.由于地球繞太陽運行周期為365天5小時48分46秒（合365.24219天）即一回歸年,公歷把一年定為365天.所余下的時間約為四年累計一天,加在二月里,所以平常年份每年365天,二月為28天,閏年為366天,二月為29天.因此,每400年中有97個閏年,閏年在2月末增加一天,閏年366天. 閏年的計算方法：公元紀(jì)年的年數(shù)可以被四整除,即為閏年；被100整除而不能被400整除為平年；被100整除也可被400整除的為閏年.如2000年是閏年,而1900年不是.
下面是一個計算公歷閏年的例子：
s = InputBox("請輸入年份：")
n = Val(s)
If n Mod 400 = 0 Or (n Mod 4 = 0 And n Mod 1000) Then
MsgBox s + "是閏年!"
End If
1900年和2100年不能被400整除,所以不是閏年