好库网 好库网首页 | 我的好库
VB爱好者

VB判断一个年份是否为闰年

发布者:vbfans
发布日期:2011/4/10 15:00:46   更新日期:2011/4/10 15:00:46
阅读次数:3486
评分:4.80
介绍:VB判断一个年份是否为闰年
正文:

下面的例子采用非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


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。