delphi 判断闰年

// 闰年

function dateLeapYear(D: TDateTime): Boolean;

var

  Year, Month, Day: Word;

begin

  DecodeDate(D, Year, Month, Day);

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

end;