# 定义错误

Posted by Honey on July 09, 1999 at 17:37:31:

In Reply to: Re: 如何写出算出某日为星期几? (不使用 WEEKDAY) posted by Honey on July 08, 1999 at 07:08:39:

抱歉 定义错误 是400年不是200年
更正以下函数 其他不用改
Public Function ChYears(LngYears As Long) As Boolean '/*传回Ture表闰年*/
'/*LngYears表年*/
Dim BytMY As Byte
BytMY = LngYears Mod 100 '/*个位及十位数字*/
If BytMY Then '/*不等于0*/
If BytMY Mod 4 = 0 Then
ChYears = True '/*能被4整除为润*/
Else
ChYears = False '/*否则便不是*/
End If
Else '/*个位及十位数字等于零(能被100整除)*/
If LngYears Mod 400 = 0 Then
ChYears = True '/*能被400整除为润*/
Else
ChYears = False '/*否则不是*/
End If
End If
End Function

Follow Ups:

- 谢谢您的说明 CHEN 12:21:08 7/13/99 (0)