本文整理自网络,侵删。
声明:function IsLeapYear ( const Year : Word ) : Boolean;描述:如果给定的日历值是闰年,则IsLeapYear返回True。参数值范围为:0-9999。begin if IsLeapYear(2000) then ShowMessage('2000 was a leap year') else ShowMessage('2000 was not a leap year');end;程序运行结果:2000 was a leap year
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>