System.DateUtils 2. IsInLeapYear 判断是否是闰年

标签：

编译版本：Delphi XE7

function IsInLeapYear(const AValue: TDateTime): Boolean;

implementation

// 判断是否是闰年

function IsInLeapYear(const AValue: TDateTime): Boolean;
begin
  Result := IsLeapYear(YearOf(AValue));
end;

// 是否是闰年，引用单元 System.SysUtils

function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); // 此处为老生常谈，不再赘述
end;

System.DateUtils 2. IsInLeapYear 判断是否是闰年

标签：

原文地址：http://www.cnblogs.com/BlackList-Sakura/p/4759922.html