| 告诉你两种判断闰年的简单方法 |
| 来源： 作者： 发布时间：2007-04-29
|
|
OptionExplicit
PrivateSubCommand1_Click()
Print2000
PrintIsLeapYearA(2000)
PrintIsLeapYearB(2000)
Print1999
PrintIsLeapYearA(1999)
PrintIsLeapYearB(1999)
Print1998
PrintIsLeapYearA(1998)
PrintIsLeapYearB(1998)
Print1997
PrintIsLeapYearA(1997)
PrintIsLeapYearB(1997)
Print1996
PrintIsLeapYearA(1996)
PrintIsLeapYearB(1996)
EndSub
FunctionIsLeapYearA(ByValyrAsInteger)AsBoolean
If((yrMod4)=0)ThenIsLeapYearA=((yrMod100)＞0)Or((yrMod400)=0)
EndIf
EndFunction
PublicFunctionIsLeapYearB(ByValyrAsInteger)AsBoolean
IsLeapYearB=Day(DateSerial(yr,2,29))=29
EndFunction->
|
| |
|
| 上一篇：如何用VB设计动画时钟举例 下一篇：如何获得系统光驱的盘符 |
|
【关闭窗口】 |
|
|
|