两个VB6判断闰年的函数
2008-03-05 12:47
197 查看
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
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
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 写了两个判断文件目录是否存在的函数
- 写一个函数判断两个字符串是否是变位词
- 判断一个年份是不是闰年，用函数的方法实现
- [MSSQL]【叶子函数分享二十八】根据年度判断是否是闰年
- 判断用户输入的年份是否是闰年，并在主函数main()中调用该函数（C++语言）
- 编写函数判断一个年是否是闰年，是闰年返回ture，不是闰年返回false。
- 判断两个二叉树是否相等（函数）
- 判断两个字符串是否相似的函数 AnsiResemblesText 专题研究
- SQL Server中判断闰年的函数
- 【C】函数相关的程序--判断一个数是否为素数，某年是否是闰年，调用一次函数将参数值加1
- 是否是闰年判断函数：BOOL IsLeapYear (int year)
- javascript判断函数参数是否传递[比较运算符中的两个等号与三个等号差别]
- C++刷题——2710: 函数---闰年判断
- 1.4 写一个函数判断两个字符串是否使用相同的字符构成。
- 函数实现乘法表，两数交换，判断闰年，初始、逆置、清空数组
- Python初识函数、闰年判断函数，水仙花数、学生信息管理系统、函数实现输入某年某月某日，判断这一天是这一年的第几天
- 判断闰年的函数
- 编写函数catStr(char str1[],char str2[])用于进行两个字符串的连接，编写函数lenStr()用于统计一个字符串的长度。编写函数cmpStr()用于判断两个字符串的大小。
- 用函数判断year是不是闰年
- 函数-判断两个关键字是否存在包含关系