VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 判断一个年份是否为闰年
发表评论(0)作者:, 平台:, 阅读:12100, 日期:2000-03-12
判断一个年份是否为闰年


下面的例子采用非API的方法来判断一个年份是否为闰年。


在一个窗体中放入一个CommandButton,然后放入下述代码


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

IsLeapYearA = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)

End If

End Function



Public Function IsLeapYearB(ByVal yr As Integer) As Boolean


IsLeapYearB = Day(DateSerial(yr, 2, 29)) = 29



End Function