被封用户，半月有余，今天始得解封，散分以示庆贺！

Question

顺便请教判断一个日期是否为闰年的算法，delphi提供的IsLeapYear不算

Answer 1

if (( year mod 100<>0) and ( year mod 4=0 )) or (year mod 400 =0) then showmessage('闰年')
else
    showmessage('平年');

Answer 2

骗子的把戏之三－－如何编写高效的润年判断函数?
http://www.csdn.net/Expert/TopicView2.asp?id=1063760&datebasetype=now顺便接点分，西西^_*

Answer 3

恭喜恭喜！function isleapyear2(year:integer):boolean;
begin
   if ((year mod 4=0) and (year mod 100<>0)) or (year mod 400=0) 
   then
     isleapyear2:=true
   else
     isleapyear2:=false;
end;

Answer 4

(Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));

Answer 5

function My_IsLeapYear(DataTime:TDatatime):Boolean;
var
  Year:integer;
begin  Year:=DataTime.Date;
  if (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))  then
      Result:=True
  else Result:=False;
end;
 

Answer 6

公告：删除讨论政治性很强的帐号不给任何警告以下原因都会导致帐号被封杀或者直接被删除
1、攻击（讽刺、漫骂，下同）祖国及人民者
2、攻击政府、党及相关政策（与技术无关的政策）
3、攻击历史正面人物、民族英雄
4、讨论所谓的国土面积减少、64事件等敏感话题
5、支持国家分裂和协教，挑起地域之争
6、涉及国家政治和军事机密
7、故意挑起政治性争论，或者把讨论引向政治方向，在论坛引发政治性争论至于严重程度有CSDN管理员及斑竹来判断，这些问题必须服从CSDN管理
不接受争辩，凡争辩者删除所有马甲已经删除 IamSwordman，whiteeye等人帐号
理由：故意挑起政治性争论，还非找一大堆所谓的理由，违反上述1、7条2002.9.13
CSDN WEBMASTER

Answer 7

哈哈，马上结帐！
顺便谢谢fuxc(Michael)，也谢谢hcat1999(阿猫)