声明：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