Delphi中从一个日期时间中判断当年是否闰年、算出当月的天数

应用场景

日期中计算经常会用到

函数代码

function IsLeapYear(const ADateTime: TDateTime): Boolean;
begin
  Result := SysUtils.IsLeapYear(DateYear(ADateTime));
end;

function DaysInMonth(const ADateTime: TDateTime): Byte;
const
  cDaysPerMonth: array[1..12] of Byte =  // array of days in months
    (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  cMonthFeb = 2;            // month number of February
  cDaysInLeapYearFeb = 29;  // number of days in February in leap year
var
  Month: Word;  // month component of specified date
begin
  Month := DateMonth(ADateTime);
  Result := cDaysPerMonth[Month];
  if (Month = cMonthFeb) and IsLeapYear(ADateTime) then
    Result := cDaysInLeapYearFeb;
end;