3个回答
2013-09-23
展开全部
1:每隔4年有一个闰年(能被4整除的);
2:每100年要去除一个闰年;
3:每400年要再增加一个闰年。
( year%400==0 ) || ( ( year%4==0 ) && ( year%100!=0 ) )
2:每100年要去除一个闰年;
3:每400年要再增加一个闰年。
( year%400==0 ) || ( ( year%4==0 ) && ( year%100!=0 ) )
2013-09-23
展开全部
INPUT "X": X
b=XMOD4 a=XMOD400 a=a+bIF a=0 THEN b=MOD100 IF b=0 THEN PRINT "此年份不是闰年" ELSE PRINT "此年份是闰年" END IFEND IFEND
b=XMOD4 a=XMOD400 a=a+bIF a=0 THEN b=MOD100 IF b=0 THEN PRINT "此年份不是闰年" ELSE PRINT "此年份是闰年" END IFEND IFEND
本回答被网友采纳
2013-09-23
展开全部
Function isRun(lYear As Long) As Boolean
If lYear Mod 400 = 0 Then
isRun = True
ElseIf ((lYear Mod 4 = 0) And (lYear Mod 100 <> 0)) Then
isRun = True
Else
isRun = False
End If
End Function
If lYear Mod 400 = 0 Then
isRun = True
ElseIf ((lYear Mod 4 = 0) And (lYear Mod 100 <> 0)) Then
isRun = True
Else
isRun = False
End If
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询