告诉你两种判断闰年的简单方法

告诉你两种判断闰年的简单方法 考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程 : Option Explicit Private Sub Command1_Click() Print 2000 Print IsLeapYearA(2000) Print IsLeapYearB(2000) Print 1999 Print IsLeapYearA(1999) Print IsLeapYearB(1999) Print 1998 Print IsLeapYearA(1998) Print IsLeapYearB(1998) Print 1997 Print IsLeapYearA(1997) Print IsLeapYearB(1997) Print 1996 Print IsLeapYearA(1996) Print IsLeapYearB(1996) End Sub Function IsLeapYearA(ByVal yr As Integer) As Boolean If ((yr Mod 4) = 0) Then 0) Or ((yr Mod 400) = 0) End If End Function IsLeapYearA = ((yr Mod 100) , Public Function IsLeapYearB(ByVal yr As Integer) As Boolean IsLeapYearB = Day(DateSerial(yr, 2, 29)) = 29 End Function 考研屋www.kaoyanwu.com :提供各大机构考研、公务员、四六级辅导视频课程 专业提供提供各大机构考研、公务员、四六级辅导视频课