敬业的IT人 互联网 佚名 2008-4-17 17:44:12

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

最新文章

FileSystemObject读写文件[04-17]

VB中多媒体五种控制手段[04-17]

VB数据库编程经验两则[04-17]

VB调用API函数使窗口保持在最上层[04-17]

如何VB转换C代码中的高字和低字[04-17]

VB中实现带预览的对话框[04-17]

相关文章

在VB中制作单独程序封面的两种方法[04-17]

VB调用C程序动态链接库的方法[04-17]

复本操作的对象、属性和方法(3)--网络数据库的复制和同步（..[04-17]

VisualBasic属性、方法和事件六[04-17]

ADO三大对象的属性、方法、事件及常数（一）[04-17]

VB实现图形动画的三种方法[04-17]