Question

使用delphi编程,输入一个年份,判断是否为闰年?急用,谢谢!

1.能被4整除,但是不能被100整除.2.即能被100整除,又能被400整除.

Answer 1

if ((AYear mod 4) = 0) and ( ( (AYear mod 100) <> 0) or ( (AYear mod 400) = 0) ) then
ShowMessage('闰年')
else
ShowMessage('非闰年')

Answer 2

function IsRunYear(AYear: word): boolean
begin
Result := ((AYear mod 4) = 0) and ( ( (AYear mod 100) <> 0) or ( (AYear mod 400) = 0) );
end;